具有特定值的vba自動填充列

Question

關於如何使用此代碼改進的任何想法。我希望他們自動填寫文本「hello」，而不是複製S2處的值。有沒有一種方法可以讓它設定值呢？

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