Excel VBA比较两列对应单元格字符是否相同？

Question

我需要实现比较AB两列对应单元格字符是否相同，相同则下一个，不同则插入单元格（活动单元格下移）。如先比较A1和B1的字符是否相同，如果相同则继续A2B2，不同的话则选中B2，在B2上方插入单元格，使原B2变成B3，继续比较A3B3，以此类推，直到A列空白结束。

Answer 1

Sub test()

    对比插入

End Sub

Function 对比插入(Optional 对比列 As Variant = 1, _

        Optional 插入列 As Variant = 2, _

        Optional 起始行 As Variant = 1)

    Dim EndRow, i

    EndRow = Cells(Rows.Count, 对比列).End(xlUp).Row

    For i = 起始行 To EndRow

        If Not Cells(i, 对比列).Value = Cells(i, 插入列).Value Then

            Cells(i, 插入列).Insert Shift:=xlDown

        End If

    Next i

End Function

说明：

定义一个自定义函数：对比插入(对比列,插入列,起始行)（这里定义的是三个可选函数，即不填写为默认值）

调用函数与单元格公式一样

效果预览

Answer 2

哦，这个不难吧本回答被提问者采纳