실무반
Sub LabelPrint() Dim rngCell As Range Dim intCol As Integer Dim intRow As Integer Dim intCount As Integer Worksheets("레이블").Activate Application.ScreenUpdating = False intRow = 3 For Each rngCell In Range("이름") If rngCell.Row Mod 2 = 0 Then intCol = 2 Else intCol = 5 End If With ActiveSheet.Cells(intRow, intCol) .Offset(0, 0) = rngCell.Offset(0, 3) .Offset(2, 0) = rngCell.Offset(0, 4) .Offset(4,..