
선택해야 할 범위가 있습니다. 범위의 상위 영역은 다음 명령을 사용하여 얻을 수 있는 A2입니다.
Cells(2, 1)
더 낮은 범위는 다음 명령을 사용하여 얻을 수 있습니다.
Cells(Rows.Count, 1).End(xlUp).Row
Cells(5, Columns.Count).End(xlToLeft).Column
모든 셀 명령을 범위가 선택할 항목으로 결합하려면 어떻게 해야 합니까?
나는 노력했다
range=(cells(2,1)),(Cells(Rows.Count, 1).End(xlUp).Row),(Cells(5, Columns.Count).End(xlToLeft).Column).select
하지만 형식 오류가 발생합니다.
답변1
Cells(Rows.Count, 1).End(xlUp).Row
정수를 반환한다는 것을 기억하세요
그리고
Cells(5, Columns.Count).End(xlToLeft).Column
정수를 반환합니다.
그래서 당신은 필요합니다 Cells(integer,integer)
.
귀하의 현재 상태로는 다음과 같습니다 range(A2),integer,integer.select
.
사용하지 않으며 select
두 개의 정수를 사용하려면 이를 셀()로 래핑해야 합니다. 그리고 range()의 모든 것.
Set rng = Range(Cells(2, 1), Cells((Cells(Rows.Count, 1).End(xlUp).Row), (Cells(5, Columns.Count).End(xlToLeft).Column)))
이를 수행하는 더 좋은 방법은 다음과 같습니다.
Sub test()
Dim rng As Range
Dim lastrow As Integer
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
Dim lastcol As Integer
lastcol = Cells(5, Columns.Count).End(xlToLeft).Column
Set rng = Range(Cells(2, 1), Cells(lastrow, lastcol))
End Sub
select
이제 범위를 정할 이유가 없습니다 . rng
직접 작업하면 됩니다.