VBA For~ Next 문에서... (질문쓰다 이유를 알아버림 ㅠㅠㅠㅠ)

안녕하세요!

오늘은 VBA 질문을 가져왔습니당.

엑셀로 라벨지 출력하려고 했는데요.

아는 내용이라 작동하게는 만들었는데, 이해 안가는 부분이 있어서, 질문 드립니다!

방법이야 많겠지만 그냥 막 단순하게 만들었어요.

Sub PrintAll_Click()

Dim i As Integer
Dim CntA As Integer

CntA = Application.WorksheetFunction.CountA(Range("B2:B100"))

For i = 0 To CntA

If i = CntA Then GoTo out

Sheets("print").Cells(1, 1) = Sheets("print_list").Cells(2 + i, 2)
Sheets("print").PrintOut

Next i
out:

End Sub

셀중에 내용 있는 셀 갯수만 세서 CntA 변수에 넣고, i 가 0부터 CntA 될때까지 반복되도록 하는 구성인데요.

셀 내용에 2개가 있으면, i 가 0 To 2 가 되니까..........................
=============================================================================

왜 자꾸 의미없이 CntA가 2인데 3번 반복돼서 쓸데없는 자료가 하나 더 출력되나 했더니 -_-;;;

i가 0부터 2니까 0, 1, 2 라서 당연히 세번 도는건데 왜그러는지 고민했네요 -_-;;;

이걸 몰라서 중간에 이프 써서 강제로 반복문 탈출시켰는데....

i 시작을 1로 바꾸고, i가 더해지는 부분에서 1을 뺀 값으로 하니 잘 됩니다. ㅠㅠ

Sub PrintAll_Click()

Dim i As Integer
Dim CntA As Integer

CntA = Application.WorksheetFunction.CountA(Range("B2:B100"))

For i = 0 To CntA

Sheets("print").Cells(1, 1) = Sheets("print_list").Cells(1 + i, 2)
Sheets("print").PrintOut

Next i

End Sub

질문은 좋은거네요... 질문하다보니 스스로 풀리는 문제가 있네요 ㅠ

질문 | 1268명이 읽었어요. 3.134.102.182