Копировать / Вставить + условие MAC

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

Объявить вас как долго;это числа, а не строки.Я также исправил ваши определения диапазонов и дал Range ("C", Numberro) ссылку на родительский лист.

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