复制/粘贴 + 条件 MAC

Question

我在表 2 中有一些列。

我想要如果在 Sheet2.Column C = "LIVE" 然后复制 Sheet1.Column E 中的 Sheet2.Column B 值（并删除值之间的空格）。

但我不知道如何在 MAC VBA 中翻译它或为什么它不起作用。

这是我的代码：

Sub Macro2()

Dim numero As String
Dim endcolumn As String

numero = 1
endcolumn = Range("C" & Rows.Count).End(xlUp).Row
While numero <= endcolumn
    If Range("C", numero) = "LIVE" Then
    Sheets("Sheet1").Range(E, numero) = Sheets("Sheet2").Range(B, numero)
    End If

    numero = numero + 1

Wend
End Sub

Answer 1

声明你 vars 一样长； 它们是数字，而不是字符串。 我还更正了您的范围定义，并为 Range("C", numero) 提供了父工作表参考。

Sub Macro2()

    Dim numero As long
    Dim endrow As long

    numero = 1
    endrow = workSheets("Sheet2").Range("C" & Rows.Count).End(xlUp).Row

    While numero <= endrow 
        If workSheets("Sheet2").cells(numero, "C") = "LIVE" Then
            workSheets("Sheet1").cells(rows.count, "E").end(xlup).offset(1, 0) = _
                workSheets("Sheet2").cells(numero, "B").value
        End If

        numero = numero + 1

    Wend

End Sub