添加新条目

时间:2018-02-23 10:34:32

标签: excel excel-vba excel-formula userform vba

我需要在我的工作簿中创建唯一的ID,这些ID需要采用格式&01-01 /' ' 01-02 /' ' 02-01 /&#39 ;. ID的这一部分反映了一个类别,并使用vlookup为每个条目生成。在/之后需要一个数字来表示列表中每个类别的当前事件。我通过使用countif公式计算重复数来获得此数字。最后,我通过连接根和数字来创建ID。

column E (vlookup)   
=IFERROR(VLOOKUP(D13;Labels!$A$2:$B$20;2;FALSE);"na")
01-01/
01-01/
04-03/
01-04/
01-03/
01-03/

column F (countif)
=COUNTIF($E$2:E13;E13)
2
1
1
3
4
1


column G (concatenate)
01-01/2
01-02/1
03-02/1
01-01/3
01-01/4
04-03/1

这些列所在的工作表是一个工作表,用于从用户表单收集数据输入。对于每个新条目,我使用一个代码将上一行的公式复制到新记录:

.Range("E" & lRow - 1 & ":I" & lRow - 1).copy
.Range("E" & lRow & ":I" & lRow).PasteSpecial Paste:=xlPasteFormulas

除了不更新countif公式之外,这种方法很好。如果我有一个新条目,我得到例如:

01-03/  8   01-03/8
01-03/  8   01-03/8

虽然它应该是01-03 / 8和01-03 / 9。

0 个答案:

没有答案