我试图找出我的代码出了什么问题。我正在尝试根据列L2过滤到最后一行,并基于从A2到已过滤列的最后一行的条件更改添加中断。
但是它也在隐藏行上运行。我认为这很简单,我很想念,但是对您的帮助或向正确方向的推动将不胜感激!
这是我的代码:
ActiveSheet.Range("A1:O" & lr).AutoFilter Field:=12, Criteria1:="Article State Change"
Set rng = Range("A2:A" & lr).SpecialCells(xlCellTypeVisible)
irow = rng.Row
icol = rng.Column
Do
If Cells(irow + 1, icol) <> Cells(irow, icol) Then
Cells(irow + 1, icol).EntireRow.Insert shift:=xlDown
Cells(irow + 1, icol).EntireRow.Interior.Color = RGB(192, 192, 192)
irow = irow + 2
Else
irow = irow + 1
End If
'
Loop While Not Cells(irow, icol).Text = ""