코딩 무엇인가요 Sub RepeatAndNumbering()

코딩 무엇인가요

Sub RepeatAndNumbering() Dim lastRow As Long Dim i As Long, j As Integer, currentRow As Long Dim repeatCount As Integer ' 반복 횟수 설정 repeatCount = 21 ' A열의 마지막 데이터 행 찾기 lastRow = Cells(Rows.Count, "A").End(xlUp).Row currentRow = 1 ' 결과값이 들어갈 시작 행 번호 ' 화면 깜빡임 방지 및 속도 향상 Application.ScreenUpdating = False ' A열의 1행부터 마지막 행까지 순회 For i = 1 To lastRow If Cells(i, "A").Value <> "" Then ' 빈 셀이 아닐 경우만 실행 For j = 1 To repeatCount ' B열에 1~21 넘버링 입력 Cells(currentRow, "B").Value = j ' C열에 A열 데이터 입력 Cells(currentRow, "C").Value = Cells(i, "A").Value currentRow = currentRow + 1 Next j End If Next i Application.ScreenUpdating = True MsgBox "작업이 완료되었습니다!"End Sub