Excel 매크로에서 전체 열 빼기 헤더 행을 선택하십시오.


8

행 2에서 시작하는 전체 열에 해당하는 범위에 어떻게 액세스합니까 (헤더 행이 있습니까)?

선택의 끝은 열에서 비어 있지 않은 마지막 셀이어야합니다.

답변:



2

이 시도:

Range(Range("A2"),Range("A2").End(xldown)).Select

아니면 이거:

Range(Range(Cells(2, 1), Cells(2, 1)), Range(Cells(65535, 1), Cells(65535, 1)).End(xlUp)).Select

2

이 SO 답변을 참조 하면 유일한 안전한 방법은 .find()방법입니다.
이전에 일부 셀을 삭제 한 경우 다른 모든 방법은 잘못된 결과를 제공 할 수 있습니다.

마지막 셀을 얻는 예

Lastrow =  Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
Lastcol =  Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column

질문에 대한 특정 답변 (데이터가 2 열에서 시작하여 2 열에 있다고 가정)

Range([B2], [B:B].Find("*", [B1], , , xlByRows, xlPrevious)).select

여기에 이미지 설명을 입력하십시오


1

Excel 키보드 단축키를 사용할 수 있습니다. Ctrl+ 해보세요 Home.

이렇게하면 A1 셀로 이동합니다 (동결 분할 창을 사용하지 않은 경우). 한 셀 아래로 내려간 다음 Ctrl+ Shift+ Down arrow버튼을 사용 하여 마지막으로 입력 한 행까지 선택하십시오.

열 값을 선택해야하는 경우 right arrow버튼 대신 버튼을 사용하십시오 down arrow.


0

이 코드는 셀 "B1"에 헤더가있는 헤더를 제외한 모든 것을 평균화합니다.

Dim GG as Long
GG = Application.WorksheetFunction.Average(ActiveSheet.Range("B2", Range("B2").End(xlDown)))
당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.