VBA «Ошибка компиляции: метод или элемент данных не найден» при переносе значения в диапазон

Question

Завершите VBA-новичка и, нажав кнопку, попытайтесь получить значение (это будет конечное значение столбца для вставки команды), сохраненное на листе RawData в A1, преобразовать его в текст или значение (я полагаю?) И сохранить его. как revValue, затем добавьте его в диапазон в команде копирования и вставки. Я знаю, что копирование и вставка работают нормально, когда я просто помещаю значения Range, то есть Destination:=dir.Range("A30"), но с Destination:=dir.Cells(30, revValue) получая «Ошибка компиляции: метод или элемент данных не найден» ... конечно, это действительно очевидный, но сводит меня с ума , Любая помощь приветствуется.

Private Sub Import_Click()

    Dim source As Worksheet
    Dim dir As Worksheet
    Dim revValue As Range

    Set source = Worksheets("RawData")
    Set dir = Worksheets("Register")

'Store the RawData Cell value as a text or integer?

    Set revValue = source.Cell(1, 1).Value

    Worksheets("RawData").Activate
    Worksheets("RawData").Columns("A:D").AutoFit

'These two function work fine

    source.Range("C1", Range("C1").End(xlDown)).Copy Destination:=dir.Range("A30")

    source.Range("D1", Range("D1").End(xlDown)).Copy Destination:=dir.Range("J30")

'This one doesn't

    source.Range("E1", Range("E1").End(xlDown)).Copy Destination:=dir.Cells(30, revValue)

End Sub

Answer 1

.Cells использует целые числа, но вы используете revValue, который является переменной диапазона.