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

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

vba excel

Vba Excel宏以插入彼此不同的空白单元格,vba,excel,Vba,Excel,我想插入一个彼此不同的空白单元格；在这种情况下，可乐和可乐如果ColB与ColA不同，我想插入一个空白单元格输入是 ColA ColB 1 1 2 2 3 4 4 输出应该是 ColA ColB 1 1 2 2 3 Blank cel 4 4 试试下面的 For i = 2 To ActiveSheet.UsedRange.Rows.Count If Not Cells(i, 1).Value = Cells(i

我想插入一个彼此不同的空白单元格；在这种情况下，可乐和可乐

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

输入是

ColA ColB
1      1
2      2
3      4
4

输出应该是

ColA ColB
1      1
2      2
3     Blank cel
4      4

试试下面的

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

是否仅在ColB中缺少值？