根据条件将行插入过滤的行

时间:2019-03-12 15:52:33

标签: excel vba

我试图找出我的代码出了什么问题。我正在尝试根据列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 = ""

0 个答案:

没有答案