삽입된 행을 노란색으로 채우시고 싶다는 말씀이신가요?
Sub 신규입력()
Rows(5).Copy
Rows(5).Insert
Rows(6).Interior.ColorIndex = 6
Range("c5").Value = "3610-0000"
Range("a5, e5:h5,k5:L5").ClearContents
Range("b5").Formula = "=COUNTA(c:c)-ROW()+3"
End Sub
다음검색