셀선택영역 vba 질문입니다.

VBA
작성자
이하늘
작성일
2021-01-21 19:03
조회
78

아래 선택된 부분 처럼 선택역영을 구하기 위해 아래와 같이 입력하니

빈셀이 있어서 선택이 이상하게 되네요.

Range("D5").Select
Range(Selection, Selection.End(xlDown)).Select

아래처럼 선택후 모두 테두리를 하고 싶습니다.  셀영역이 고정이 아니고

행과 열이 변화가 있어서 End(xlDown) 를 사용해야 할거 같습니다

감사합니다.

 

전체 5

  • 2021-01-22 14:38
    채택된 답변
           Range("D5", Cells(Rows.Count, "H").End(xlUp)).Select

    위와같이 해도 원하는 결과가 나옵니다.


  • 2021-01-21 22:51

    '/////////////////////////////////////////////////////////////////////
    '/// 편의상 변수 선언
    '/////////////////////////////////////////////////////////////////////

    Dim iRow As Long  '// 데이터 행
    Dim iCol As Long   '// 데이터 컬럼
    Dim xOffset As Long  '// 시작하는 컬럼
    Dim yOffset As Long '// 시작하는 행

    '////////////////////////////////////////////////////////////////////////////
    '/// 데이터만 담고 있는 시트가 별도로 있다면
    '/// 아래 코드를 사용하면 되는데.. 실제로 별도의 시트로 갖고 있지 않은 경우가 많죠
    '////////////////////////////////////////////////////////////////////////////

    iRow = ActiveSheet.UsedRange.Rows.Count '// 반환값 12 (화면기준)
    iCol = ActiveSheet.UsedRange.Columns.Count '// 반환값 5

    '////////////////////////////////////////////////////////////////////////////
    '/// A컬럼=1, B컬럼=2, C컬럼=3.... Z컬럼= 26
    '///
    '/// 데이터 범위에서, 반드시 모든 행이 있는 컬럼을 찾아서 상수로 입력합니다.
    '/// 번호 커럼 (D) 이 반드시 있어야 할 컬럼으로 보여 집니다.
    '///
    xOffset = 4
    yOffset = 5 '// 예제에서 d5컬럼 이므로// 5번째 행을 의미

    '////////////////////////////////////////////////////////////////////////////
    iRow = ActiveSheet.Cells(Rows.Count, xOffset).End(xlUp).Row
    iCol = ActiveSheet.Cells(iRow, Columns.Count).End(xlToLeft).Column

    Range(Cells(yOffset, xOffset), Cells(iRow, iCol)).Select

     

     


  • 2021-01-21 22:52

    코드 복사 후 실행해 보세요.


전체 2,488
번호 카테고리 제목 작성자 작성일 추천 조회
2479 VBA
New VBA 질문
M5 | 02:57 | 추천 0 | 조회 8
M5 02:57 0 8
2478 기능/도구
New DuTool 설치시 오류 문의드립니다.
반짝반짝 | 2021.03.04 | 추천 0 | 조회 6
반짝반짝 2021.03.04 0 6
2477 VBA
New 네이버부동산 크롤링
웃음 | 2021.03.04 | 추천 0 | 조회 9
웃음 2021.03.04 0 9
2476 함수/공식
New small함수로 작은수를 찾은 뒤 그에 상응하는 옆셀 불러오기 질문합니다. 첨부파일 (1)
솔솔 | 2021.03.04 | 추천 0 | 조회 15
솔솔 2021.03.04 0 15
2475 함수/공식
New 조건이 있는 중복된 값들의 개수 셀수 있을까요? (1)
dasdas | 2021.03.04 | 추천 1 | 조회 21
dasdas 2021.03.04 1 21
2474 VBA
New 같은이름 다른파일의 데이터 복사 붙이기 첨부파일
H.B | 2021.03.04 | 추천 1 | 조회 20
H.B 2021.03.04 1 20
2473 파워쿼리/피벗
New 파워쿼리 편집기 날짜 및 시간 (10진수) 2 첨부파일 (1)
JaeChoi | 2021.03.04 | 추천 0 | 조회 23
JaeChoi 2021.03.04 0 23
2472 함수/공식
New 9.4512E+15 식으로 발생되는 건들에 대하여 어떻게 하면 정상적으로 숫자가 나올까요? (3)
mo**** | 2021.03.04 | 추천 0 | 조회 32
mo**** 2021.03.04 0 32
2471 함수/공식
New 중복된걸 제외하고 셀수 있는 방법이 있어까요? (2)
dasdas | 2021.03.04 | 추천 0 | 조회 34
dasdas 2021.03.04 0 34
2470 VBA
New 에러가 생기면 코드 실행을 멈추고 싶은데 어떡하면 좋을까요? (1)
cyi | 2021.03.04 | 추천 0 | 조회 17
cyi 2021.03.04 0 17
2469 문서서식
New 엑셀 표를 PPT로 불러왔을때 선 굵기 관련 건 (1)
운영자동차 | 2021.03.04 | 추천 0 | 조회 23
운영자동차 2021.03.04 0 23
2468 VBA
New 아웃룩 첨부파일 저장 시 파일제목 (1)
KDHkm | 2021.03.04 | 추천 0 | 조회 12
KDHkm 2021.03.04 0 12
2467 VBA
New 혹시 2007에서 2010과 같은 스크린샷 vba는 없나여? (1)
손님 | 2021.03.04 | 추천 0 | 조회 17
손님 2021.03.04 0 17
2466 함수/공식
New 두가지 DATA를 비교하여 없는 값 불러오기 첨부파일
Jeff | 2021.03.04 | 추천 0 | 조회 30
Jeff 2021.03.04 0 30
2465 차트/그래프
New 간트에서 선행업무와 연결하는 방법 (1)
라이언 | 2021.03.04 | 추천 0 | 조회 18
라이언 2021.03.04 0 18
2464 함수/공식
New xFilter 함수 기능 설치 (1)
서강국 Noah | 2021.03.04 | 추천 0 | 조회 16
서강국 Noah 2021.03.04 0 16
2463 VBA
New [VBA] 고유값을 순번이 아닌 특정한 값으로 사용하는 방법이 궁금합니다. (1)
u*** | 2021.03.04 | 추천 0 | 조회 15
u*** 2021.03.04 0 15
2462 문서서식
New 출퇴근명부만들기_요일에 색깔넣기 오류_질문입니다. 첨부파일 (4)
반짝반짝 | 2021.03.04 | 추천 0 | 조회 32
반짝반짝 2021.03.04 0 32
2461 함수/공식
New 하이퍼링크로 셀 이동하기 관련 질문.
푸른나래 | 2021.03.03 | 추천 0 | 조회 25
푸른나래 2021.03.03 0 25
2460 기능/도구
New 같은 파일 같은 시트에 있는 많은 데이터를 10개 씩 묶어서 저장하는 방법이 있나요? (1)
이경호 | 2021.03.03 | 추천 0 | 조회 15
이경호 2021.03.03 0 15
2459 대시보드
New 대시보드 인쇄문제 (1)
skyblue**** | 2021.03.03 | 추천 0 | 조회 18
skyblue**** 2021.03.03 0 18
2458 기능/도구
New 직원들간 업무 공유가 가능한가요? (4) 답변완료
건평 | 2021.03.03 | 추천 0 | 조회 40
건평 2021.03.03 0 40
2457 파워쿼리/피벗
New 쿼리,피벗 기본 서식을 변경할 수 있나요? (1)
Kampi Krein | 2021.03.03 | 추천 0 | 조회 24
Kampi Krein 2021.03.03 0 24
2456 피벗테이블
New 엑셀 정리 관련 질문 첨부파일 (1)
hashm**** | 2021.03.03 | 추천 0 | 조회 38
hashm**** 2021.03.03 0 38
2455 함수/공식
New [수식] 간단한 수식관련 질문인데요. (1) 답변완료
가람 | 2021.03.03 | 추천 0 | 조회 38
가람 2021.03.03 0 38
2454 함수/공식
New 자동으로 범위를 지정하여 합계 구하는 공식 첨부파일 (1)
벗님들 | 2021.03.03 | 추천 0 | 조회 34
벗님들 2021.03.03 0 34
2453 함수/공식
New [정말 급합니다 ㅠㅠ] 리스트 클릭 시 상세 내역이 보였으면 합니다. 첨부파일 (2) 답변완료
박이안 | 2021.03.03 | 추천 1 | 조회 71
박이안 2021.03.03 1 71
2452 함수/공식
New 월별 입출고 누적 수량 문의 첨부파일 (2)
excel009 | 2021.03.03 | 추천 0 | 조회 40
excel009 2021.03.03 0 40
2451 함수/공식
New 월별 입출고 누적 수량 문의 첨부파일 (2) 답변완료
excel009 | 2021.03.03 | 추천 0 | 조회 53
excel009 2021.03.03 0 53
2450 함수/공식
New SUMPRODUCT/OFFSET 관련 문제 첨부파일 (2)
슬리드 | 2021.03.03 | 추천 0 | 조회 43
슬리드 2021.03.03 0 43