具有特定值

Question

关于如何使用此代码改进的任何想法。我希望他们自动填写文本＆＃34;你好＆＃34;而不是复制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