在两列左function

我有这样一段代码：我想在下面的代码中对单元格G和M做一个左侧函数：当我尝试时，我遇到了一个问题：

If left(.Cells(i, "G",4)) <> left(.Cells(i, "M",4)) this does not work. 

有什么build议？

以下是完整的代码：

 Sub SingleTradeMove() Dim wsTD As Worksheet Set wsTD = Worksheets("Trade data") Sheets("Sheet2").Range("A2:AK600").ClearContents With wsTD lastRow = .Range("A" & .Rows.Count).End(xlUp).Row For i = 2 To lastRow If .Cells(i, "G") <> .Cells(i, "M") _ Or .Cells(i, "I") <> .Cells(i, "O") _ Or .Cells(i, "L") <> .Cells(i, "R") Then .Cells(i, "J").EntireRow.Copy _ Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1) End If Next i End With End Sub 

Answer 1

你需要使用

 If left(.Cells(i, "G"),4) <> left(.Cells(i, "M"),4)