Excel宏以插入彼此不同的空白单元格

Question

我想插入一个彼此不同的空白单元格;在这种情况下colA和colB。

如果ColB与ColA不同，我试图插入一个空白单元

输入

ColA ColB
1      1
2      2
3      4
4

输出应该是

ColA ColB
1      1
2      2
3     Blank cel
4      4

Answer 1

试试以下内容？

For i = 2 To ActiveSheet.UsedRange.Rows.Count
    If Not Cells(i, 1).Value = Cells(i, 2).Value Then
        Cells(i, 2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Cells(i, 2).Value = "Blank Cell"
    End If
Next i