Как выбрать последнюю ячейку в диапазоне столбцов?

Question

Я пытаюсь выбрать окончательное значение диапазона и поместить это значение в ячейку Q4. Диапазон является динамическим и начинается в четвертом ряду.

Вот мой код:

Sub test()
    Dim PSpark As Worksheet
    Dim lc As Long

    Set PSpark = Worksheets("ws1")
    lc = PSpark.Cells(4, Columns.Count).End(xlToLeft).Column

    With PSpark            
        .Range("Q4") = lc.Value
    End With
End Sub

Любая помощь будет принята с благодарностью.

Answer 1

Очень близко, я думаю, вы хотите это:

Таким образом, мы используем номер столбца, который вы нашли, а затем выбираем значение в последнем столбце для строки 4. Мы копируем значение в ячейку Q4. Cells(row, column)

Sub test()

Dim PSpark As Worksheet
Dim lc As Long

Set PSpark = Worksheets("ws1")
lc = PSpark.Cells(4, Columns.Count).End(xlToLeft).Column 'Gives us the last column number. If the value is in Column C, then we get lc = 3.

    With PSpark

        .Range("Q4") = .Cells(4, lc).Value 'Which row from column lc (which is the last column) we want to copy from

    End With


End Sub