서식복사

Sub form()

Dim i As Long

For i = 2 To Range("K2")

If Range("B" & i) = Range("K3") And _

Range("c" & i) <= Range("K4") Then '한칸띄고 _는 줄내림

Range("K5").Copy 'K5 복사

Range("a" & i).Resize(1, 8).PasteSpecial xlFormats

'"Ai"셀부터 1행 8열만큼 범위를 다시 잡는다.

'PasteSpecial xlFormats 복사한 것의 서식만 붙여넣어라.

End If

Next i

End Sub