파란크리스마스

출처 : 엑셀(Excel) 개발도구 탭 추가하기 (리본메뉴에 개발도구 탭 표시) Sub Hello() Dim Sht As Worksheet Dim iRow As Integer For Each Sht In Worksheets 'Sht.Cells.WrapText = True If Sht.Index >= 3 Then 'MsgBox (Sht.Name) Sht.Select MsgBox (ActiveSheet.Name) For iRow = 7 To ActiveSheet.UsedRange.Rows.Count If Sht.Cells(iRow, 1) = "마지막행" Then Exit For End If ' 가운데 정렬 With Sht.Cells(iRow, 6) .HorizontalAlignment = xlCenter ...

Sub Macro1() ' ' For row = 1 To 1000 ' For roworg = 1 To 1000 ' If CWorksheets("Sheet1").Cells(1, 7).Value ' Next roworg ' Next row For row = 1 To 1000 If Cells(row, 2).Value "" Then If Trim(Cells(row, 2).Value) = Trim(Cells(row, 5).Value) Then Cells(row, 6).Value = "일치" Else If Cells(row, 5).Value "" Then Cells(row, 6).Value = "불일치" Else Cells(row, 6).Value = "-" End If End If Else Cells(row, 6..