Используя XlDown и выберите определенный диапазон столбцов

Question

У меня есть этот код, который использует xlDown для определения последней строки данных (минус 1), но мне нужно перейти к определенному столбцу.Таким образом, выбор будет следующим: перейдите к A6, затем выполните xlDown -1, затем выберите результирующую строку из xlDown и объедините ее со столбцом BU

. Например, если результатом из xlDown является строка 89,диапазон для выбора должен быть A6:BU89 Я пытался использовать xlRight, но данные противоречивы и могут иметь пустые столбцы в разных местах, но я всегда хочу перейти к столбцу BU.

Не могу показатьсячтобы понять это правильно, кто-нибудь может мне помочь?

Sub AAPrepare_Pipeline_Data()
  Range("A6").Select
  Range(Selection, Selection.End(xlDown).Offset(-1)).Select
  'Range(Selection, Selection.End(xlToRight)).Select
  Selection.Copy
End Sub

Answer 1

Используйте тот же код, чтобы получить ячейки в столбце A, но измените размеры столбцов до 73 столбцов перед командой Select или Copy.

Sub AAPrepare_Pipeline_Data()

  Range(Range("A6"), Range("A6").End(xlDown).Offset(-1)).Resize(, 73).Copy

End Sub

Вам не нужно выбирать что-то для ссылкиили скопируйте его.

Answer 2

Вы можете получить желаемый номер строки, использовать его для создания диапазона, а затем выбрать этот диапазон.Примерно так должно работать:

Sub AAPrepare_Pipeline_Data()
    Range("A6").Select
    Dim desiredRow As Integer
    desiredRow = Selection.End(xlDown).Offset(-1).Row
    Range("A6:BU" & desiredRow).Select
    Selection.Copy
End Sub