OfficeTutor 365

엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.

"000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.

[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !

[필독] 저작권법 개정에 따른 이용안내

작성자:    GHLEE (wsmkt) 추천:  2 파일:     사본 - 복사매크로.xls (115.5KB) 조회:  8413 제목:   vba에서 글자,수식,숫자 등이 있는 마지막 셀 선택하는 법
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요. 1. 엑셀 버전(95,97,2000,2002):2002 2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):xp 3. CPU (486,PentiumI/II/III/IV...):IV 4. RAM (32,64,128,256,512MB,1G...): 256 * 아래줄에 질문을 작성하세요 >> 매크로 작성시 vba 에서 모르는게 있습니다. vba에서 글자,수식,숫자가 들어있는 마지막 셀을 선택하도록 해야하는 부분이 있는데... 모르겠어요... 글자,수식,숫자가 들어있는 마지막 셀을 찾아 선택하도록 하는 간단한 방법이 있는지요? 제가 한 방법은 글자,수식,숫자가 들어있는 마지막 셀을 찾는 법을 몰라서 매크로 지정할때 상대참조하여 ctrl+End 하고 ctrl + up화살표 하여 마지막 셀을 찾는 방법을 써보았거든요... 문제가 있었어요..ctrl+end 했을때 글자,수식,숫자가 들어있는 마지막 셀로 바로 이동하는 경우라면 제가 작성한 매크로 함수가 에러가 나게 되는 것이지요... 원인은 : 워크시트의 아래에서 작업을 하고 지우면 "ctrl + End "했을 때 글자,수식,숫자 등이 있는 마지막셀로 이동하지 않고 작업히고 지웠던 그 마지막 셀로 이동을 합니다. 그러니까 마지막 글자,수식,숫자 있는 셀로 이동하는 것이 아니라, 빈 셀로 이동을 한다는 말씀입니다. 글자,수식,숫자가 들어있는 마지막 셀을 찾는 간단한 방법 좀 알려주세요 * 참고로 : 여러페이지의 워크쉬트에서 마지막 페이지를 복사해서 제일 마지막 끝에 한번더 복사해 넣는 매크로를 짜고 있습니다. 　 [불량 게시물 신고]
정해원 아래의 코드를 응용해 보세요. 제가 사용하고 있는 코드의 일부입니다. 체크박스를 표시하면 마지막데이터가 있는 곳으로 이동합니다. 표시를 해제해도  마직막으로 찾아가구요... 꼭 이렇게 하지 않고 사용자의 편의에 따라 바꾸시면 되겟지요. A1부터 값이 있다고 가정하고 Private Sub CheckBox1_Click()  If CheckBox1 = True Then     Range("A1").End(xlDown).Offset(0, 0).Select  Else    Range("A1").End(xlDown).Offset(0, 0).Select   End If End Sub 09-03 (13:03) ⓧ삭제 ■신고 demon A컬럼 마지막 셀인 A65536 셀을 기준으로 End 속성을 이용해서 위로 올라오면서 찾으면 됩니다. 특정 영역 복사후 다음 코드를 실행시키면 현재 값들이 있는 마지막 행에 붙여넣기가 됩니다. Range("a65536").End(xlUp).Offset(1,0).PasteSpecial xlValues 감사합니다. 09-03 (13:04) ⓧ삭제 ■신고 스나이퍼 Sub 마지막셀() Dim 사용셀 As Variant, 컬럼%, 행%, 사용범위 As Range 사용셀 = ActiveSheet.UsedRange Set 사용범위 = ActiveSheet.UsedRange 컬럼 = UBound(사용셀, 1) 행 = UBound(사용셀, 2) 사용범위(행, 컬럼).Select End Sub 사용한 셀의 마지막 셀 찾기 - 한번 만들어밨슴(위에꺼랑 먼가 다른거 같은뎅--;) 09-03 (13:43) ⓧ삭제 ■신고
작성일 : 2003-09-03(11:59) 최종수정일 : 2003-09-03(11:59)