Question

我在工作表2中有几列。

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

但是我不知道如何在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

复制/粘贴+条件MAC

1 个答案: