Question

我有这段代码：我想在以下代码中对单元格G和M执行左侧函数：我遇到问题，就像我尝试一样：

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

任何建议？

以下是完整代码：

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)

两列上的左功能

1 个答案: