[ 라이브 공지] 오늘 12월 4일(토) 라이브는 휴강입니다. 모두 즐겁고 평안한 주말 보내세요!

마지막셀 찾기 VBA 문의

VBA
작성자
윤민호
작성일
2021-11-19 22:30
조회
78
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

수고들 하십니다.

마지막셀 찾기 응용 VBA문의

실무에 응용해 보고자 하는데, 어떤 A열 마지막셀에 값을 넣어야 할 경우
가령 E열에 표가 E1:E10까지 있고 문자나 숫자가 E5까지 기록 되어 있다면(E6:E10까지는 공백), 매크로를 실행하면 문자를 건너띄고 공백을 지나 E10에 표시가 되는데,
저는 셀에 값이 있는 E6셀을 찾고자 할 때는어떻게 해야 되는지요?(vba로 구현해야 할 때)

마지막셀 찾기 강의 VBA코드

Sub aldkfj()
 
Dim endRow As Long ' 마지막행
Dim endCol As Long ' 마지막열
 
With ThisWorkbook.Worksheets("예제시트")
    ' 사용된 모든 범위에서 마지막셀을 찾습니다.
    endRow = .UsedRange.Rows.Count + .UsedRange.Row - 1
    endCol = .UsedRange.Columns.Count + .UsedRange.Column - 1
End With
 
With ThisWorkbook.Worksheets("예제시트")
    ' 특정 행/열에서 마지막셀을 찾습니다.
    endRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    endCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
 
End Sub

 

전체 3

  • 2021-11-20 00:19
    채택된 답변

    아래 코드 참조하세요.

    Cells(1, 1).Select '// 해당 컬럼의 첫번째 행에 위치
    Range(Selection, Cells(Rows.Count, Selection.Column).End(xlUp)).Select '// 해당 컬럼 전체를 선택한다
    Selection.Find(What:="", After:=ActiveCell, SearchDirection:=xlNext, MatchCase:=True).Offset(0, 0).Select '// 첫번째 null 을 찾는다
    iLastRow = ActiveCell.Row '// 위치를 저장한다

     

     


  • 2021-11-20 19:26

    1.

    Set rg = Range("A1").CurrentRegion

    LastRow=rg.Rows(rg.Rows.Count).Row

    LastColumn=rg.Columns(rg.Columns.Count).Column

    rg.Cells(LastRow,LastColumn).Select

    rg.Select

    2.

    Set rg1 = Range("A1", Range("A1").End(xlDown).End(xlToRight))

    LastRow1=rg1.Rows(rg1.Rows.Count).Row

    LastColumn1=rg1.Columns(rg1.Columns.Count).Column

    rg1.Cells(LastRow1,LastColumn1).Select

    rg1.Select

    3.

    Set rg2 = Sheets("Sheet1").UsedRange

    LastRow2=rg2.Rows(rg2.Rows.Count).Row

    LastColumn2=rg2.Columns(rg2.Columns.Count).Column

    rg2.Cells(LastRow2,LastColumn2).Select

    rg2.Select

    4.

    Set rg3 = Sheets("Sheet1").Cells.SpecialCells(xlCellTypeLastCell)

    Set rg4 = Sheets("Sheet1").Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell))

    상기와 같은 Selection을 비교하시면 도움이 되시고
    5. 그리고 아래 Last Cell을 찾는 Cells.Find 까지면 Range에 대한 Master가 될겁니다.
    Dim lRow As Long
    Dim lCol As Long

    lRow = Cells.Find(What:="*", _
    After:=Range("A1"), _
    LookAt:=xlPart, _
    LookIn:=xlFormulas, _
    SearchOrder:=xlByRows, _
    SearchDirection:=xlPrevious, _
    MatchCase:=False).Row
    이하 lCol은 생략


  • 2021-11-21 12:17

    도움 주셔서 감사합니다.

    해결 되었네요.


전체 4,692
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (11)
오빠두엑셀 | 2021.10.28 | 추천 16 | 조회 776
트로피 오빠두엑셀 2021.10.28 16 776
24300 VBA
New 떨어져 있는 특정 셀 선택 매크로 (1) 답변완료
제비제비 | 16:38 | 추천 0 | 조회 10
제비제비 16:38 0 10
24293 기능/도구
New 특정행으로 이동하는 문의를 드립니다. 첨부파일 (2)
열공합시다 | 14:16 | 추천 0 | 조회 16
열공합시다 14:16 0 16
24291 VBA
New for 문과 for each문을 보다가 궁금한게있습니다. (1)
이치영 | 13:43 | 추천 0 | 조회 17
이치영 13:43 0 17
24289 함수/공식
New 함수좀 알려주세요. 첨부파일 (3)
naver_5f055a605ee7d | 10:12 | 추천 0 | 조회 25
naver_5f055a605ee7d 10:12 0 25
24285 VBA
New 파일선택하면 파일명을 클립보드에 넣을수 있을까요? (1)
ㅈㄱㄹ | 01:03 | 추천 0 | 조회 22
ㅈㄱㄹ 01:03 0 22
24279 함수/공식
New xfilter 사용조건 중 모두를 검색하는 수식 첨부파일 (4) 답변완료
다우미노 | 2021.12.03 | 추천 0 | 조회 29
다우미노 2021.12.03 0 29
24277 VBA
New 엑셀 화일명 변경 관련 첨부파일 (2)
워싱턴 | 2021.12.03 | 추천 0 | 조회 32
워싱턴 2021.12.03 0 32
24276 함수/공식
New 해당값을 끌고오는 양식? 첨부파일 (1) 답변완료
뚜루루 | 2021.12.03 | 추천 1 | 조회 39
뚜루루 2021.12.03 1 39
24275 VBA
New 병렬로 나열된 자료 일렬로 정렬하는 방법 문의 드립니다. 첨부파일 (2) 답변완료
007 | 2021.12.03 | 추천 0 | 조회 51
007 2021.12.03 0 51
24271 VBA
New Sheet 이동시 속성이름을 유지하고 싶어요 첨부파일 (2)
Lucas's | 2021.12.03 | 추천 0 | 조회 30
Lucas's 2021.12.03 0 30
24270 기능/도구
New 여러가지 수식으로 된 엑셀시트에서 목표값에 맞추기 위한 해 찾기 문의드립니다. 첨부파일 (1)
함수시르미 | 2021.12.03 | 추천 1 | 조회 31
함수시르미 2021.12.03 1 31
24262 VBA
New 불규칙 데이터의 자동채우기 해결방법 (1)
파퍼 | 2021.12.03 | 추천 0 | 조회 43
파퍼 2021.12.03 0 43
24259 함수/공식
New 계획시트에서 일일실적시트로 일별 데이터 취합방법 문의드립니다. 첨부파일 (3)
skyzza**** | 2021.12.03 | 추천 0 | 조회 42
skyzza**** 2021.12.03 0 42
24253 함수/공식
New 파일과 관련된 숫자를 다른 파일에 있는 숫자로 변경할 수 있는 방법 첨부파일 (2)
안녕 | 2021.12.02 | 추천 0 | 조회 30
안녕 2021.12.02 0 30
24252 함수/공식
New 표 범위 내에서 맨 좌측값 가져오기 질문드립니다. (3) 답변완료
김성환 | 2021.12.02 | 추천 0 | 조회 35
김성환 2021.12.02 0 35
24251 기능/도구
New 엑셀 주식 가격 예측 양식 사용 질문입니다. 첨부파일 (1)
thause | 2021.12.02 | 추천 0 | 조회 29
thause 2021.12.02 0 29
24249 VBA
New 모든 하위 폴더 내의 최신 파일 하나만을 특정 폴더로 복사하려 합니다 (1)
너의나라 | 2021.12.02 | 추천 0 | 조회 32
너의나라 2021.12.02 0 32
24248 차트/그래프
New 그래프에서 가로 축 Data 설정하는 법 첨부파일
Etter | 2021.12.02 | 추천 0 | 조회 35
Etter 2021.12.02 0 35
24245 VBA
New 아웃룩 이메일 내용에 VBA 변수 넣기 (1) 답변완료
argus | 2021.12.02 | 추천 0 | 조회 37
argus 2021.12.02 0 37
24239 VBA
New [초보] 웹 크롤링 관련 질문입니다. 첨부파일 (2) 답변완료
스캐쳐 | 2021.12.02 | 추천 0 | 조회 34
스캐쳐 2021.12.02 0 34
24238 VBA
New 어떤 한 배열에서 다른 배열에 있는 값만 제외하고 새로운 배열3을 만들 수 있을까요? (2)
Paul | 2021.12.02 | 추천 0 | 조회 32
Paul 2021.12.02 0 32
24233 함수/공식
New 0이상의 값(유효값)이 있는 칼럼과 그 값을 불러오고 싶습니다. 첨부파일 (2) 답변완료
크놉스 | 2021.12.02 | 추천 0 | 조회 32
크놉스 2021.12.02 0 32
24232 차트/그래프
New 엑셀 차트에서 특정 값이 너무 높을때 차트화 하는 법 (2) 답변완료
담담 | 2021.12.02 | 추천 0 | 조회 40
담담 2021.12.02 0 40
24230 VBA
New vba 코딩을 부탁드립니다. 첨부파일 (6)
Trimman | 2021.12.02 | 추천 -2 | 조회 57
Trimman 2021.12.02 -2 57
24228 함수/공식
New 등급 기준표를 참조해서 연산을 하려고 할때 (1) 답변완료
지천 | 2021.12.02 | 추천 0 | 조회 29
지천 2021.12.02 0 29
24221 파워쿼리/피벗
New 엑셀 종속 테이블 문의 첨부파일 (2)
유령회원 | 2021.12.02 | 추천 0 | 조회 25
유령회원 2021.12.02 0 25
24216 VBA
New 로그인엑셀 사용시 수식입력줄 사라짐, 모든 엑셀창 자동종료 첨부파일 (1)
엑셀이 | 2021.12.02 | 추천 0 | 조회 26
엑셀이 2021.12.02 0 26
24215 VBA
New set_routine 반복 매크로 (1)
하늘의 꿈 | 2021.12.01 | 추천 0 | 조회 33
하늘의 꿈 2021.12.01 0 33
VBA
New 재질문 입니다.
하늘의 꿈 | 2021.12.02 | 추천 0 | 조회 17
하늘의 꿈 2021.12.02 0 17
24213 파워쿼리/피벗
New [파워쿼리] 계약자코드 중 특수계약 날짜가 일반계약 최소 최대 사이에 포함여부 열추가 첨부파일 (3)
seorin | 2021.12.01 | 추천 0 | 조회 27
seorin 2021.12.01 0 27
24211 VBA
New 시트를 메일머지하여 Hancom PDF 파일로 출력하는 매크로 VBA 코드 도움을 받고 싶어요. 첨부파일 (4) 답변완료
김학동 | 2021.12.01 | 추천 0 | 조회 39
김학동 2021.12.01 0 39