특정 값을 갖는 vba 자동 채우기 열

Question

이 코드로 어떻게 개선 할 수 있는지에 대한 아이디어. S2에있는 값을 복사하는 대신 "hello"텍스트를 자동 채우기를 원합니다. 대신에 값을 설정하도록 할 수있는 방법이 있습니까?

lastRow = Range("A" & Rows.Count).End(xlUp).Row 
Range("S2").AutoFill Destination:=Range("S2:S" & lastRow) 

Answer 1

Autofill을 사용하지 마십시오. 필요한 것은 FillDown입니다.

With Sheets("Sheet1") 
    lastRow = .Range("A" & .Rows.Count).End(xlUp).Row 
    .Range("S2","S" & lastRow).FillDown 
End With