행삭제 실행시 데이터가 있는 마지막 행부터 삭제가 되는데 10행 까지만 삭제되어야 하는데 전부다 삭제가 되버리네요. ㅠ.ㅠ
10행까지만 삭제가 되게 하고 싶은데 어떻게 수정을 해야 할까요?
Sub 행삭제()
Set sh1 = Worksheets("Sheet1")
r = sh1.Cells(100, 1).End(xlUp).Row
Rows(r).Delete
End Sub커뮤니티 전체
vba 행삭제시 10행까지만 삭제하는 코드문의
033cola Lv.16
📅 2022년 02월 07일 14:52
👁 조회 1,772
엑셀 코드 중에서 아래와 같이 코드를 만들었어요.
행삭제 실행시 데이터가 있는 마지막 행부터 삭제가 되는데 10행 까지만 삭제되어야 하는데 전부다 삭제가 되버리네요. ㅠ.ㅠ
10행까지만 삭제가 되게 하고 싶은데 어떻게 수정을 해야 할까요?
행삭제 실행시 데이터가 있는 마지막 행부터 삭제가 되는데 10행 까지만 삭제되어야 하는데 전부다 삭제가 되버리네요. ㅠ.ㅠ
10행까지만 삭제가 되게 하고 싶은데 어떻게 수정을 해야 할까요?
댓글을 작성하려면 로그인이 필요합니다.
게시글 목록
페이지 1 / 976게시글 제목
날짜
조회
추천
8시간 전
조회 35
0
답글 1
12시간 전
조회 81
0
답글 2
13시간 전
조회 72
0
답글 6
해결
14시간 전
조회 32
0
답글 0
2일 전
조회 182
0
답글 8
해결
엑셀 자동화서식만들기
[1]
[1]
3일 전
조회 125
0
답글 1
3일 전
조회 107
0
답글 1
4일 전
조회 146
0
답글 1
4일 전
조회 194
0
답글 3
해결
5일 전
조회 164
0
답글 2
해결
5일 전
조회 161
0
답글 2
요일색칠
[2]
[2]
6일 전
조회 177
0
답글 2
2026.04.07
조회 531
0
답글 5
해결
2026.04.04
조회 237
0
답글 0
2026.04.03
조회 224
0
답글 1
2026.04.02
조회 218
0
답글 0
2026.04.01
조회 285
0
답글 1
오답체크를 위한 조건부 서식
[5]
[5]
2026.04.01
조회 302
0
답글 5
2026.04.01
조회 214
0
답글 0
2026.04.01
조회 271
0
답글 3
"참조가 잘못되었가나 조건이 없다고 창이 뜨네요.
sh1.Range(sh1.Cells(11, 1), .sh1.Cells(r, 1)).EntireRow.Delete 에서 두번째에 .sh1. 앞에 . 이 원인인거 같습니다.
그리고 제가 원하는 코드는 1행부터 20행까지 데이터가 있을 경우에 행삭제를 실행할때 마다 맨아래 데이터 20행 부터 한행식 차례차례 삭제가 되다가 10행에 정지해야 합니다. 10행부터는 삭제가 되지 않게
Sub 행삭제() Set sh1 = Worksheets("Sheet9") r = sh1.Cells(1000, 1).End(xlUp).Row If r > 10 Then sh1.Rows("11:" & r).EntireRow.Delete End If End Sub마지막 줄의 위치를 점검해야 합니다.
Sub 행삭제() Set sh1 = Worksheets("Sheet9") r = sh1.Cells(1000, 1).End(xlUp).Row If r > 10 Then sh1.Rows(r).Delete '===고쳐진 부분 End If End Sub선택된 한 행만 삭제되게...
간단하게 if문을 사용해서 작성하시면 될거 같습니다.
Sub 행삭제() Set sh1 = Worksheets("Sheet1") r = sh1.Cells(100, 1).End(xlUp).Row If r <> 10 Then Rows(r).Delete End Sub