Выберите диапазон, используя номер столбца

Question

Я получаю сообщение "Ошибка приложения или объекта" при передаче параметра в диапазоне.

Если я использую приведенное ниже кодирование, оно работает правильно без ошибок.

With Sheets("BBG").Range("A1:AD1")

но я запускаю его с кодировкой ниже, это отражает ошибку выше.

With Sheets("BBG").Range("A1:" & LastColumn & 1)

Полное кодирование

Dim LastColumn As Long
With Sheets("BBG")
LastColumn = .Range("A1").SpecialCells(xlCellTypeLastCell).Column

Set Rng1 = .Find(What:=chck1, _
After:=.Cells(.Cells.Count), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
                        MatchCase:=False)
If Not Rng1 Is Nothing Then
Sheets(2).Activate
ThisWorkbook.Sheets(2).Cells(i, "N").Value = Rng1.Address
cl = Rng1.Column
Else
End If
End With

Answer 1

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

Sub foo()
With Sheets("BBG")
    LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    .Range(.Cells(1, 1), .Cells(1, LastCol)).Select
    'Cells(1,1) = Range("A1")
    'Cells(1, LastCol) = Last Column on Row 1
End With
End Sub