试图找到简单的自动填充宏的解决方案,直到最后一行。我得到一个错误,即所有合并的单元格都必须具有相同的大小。
Sub Button10_Click()
Sheets("P").Select
Range("P5").Select
ActiveCell.FormulaR1C1 = "5"
LastRow = Range("A65000").End(xlUp).Row
Range("P5").Select
Selection.AutoFill Destination:=Range("P5:P" & LastRow) (error row)
Sheets("Test").Select
End Sub
也许有人知道哪里有问题?