创建一个宏来自动填充从顶行到相邻最后一列的数据,可以按照以下步骤进行操作:
Sub AutoFillData()
Dim LastColumn As Long
Dim LastRow As Long
' 获取最后一列的列号
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
' 获取最后一行的行号
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
' 填充数据
Range(Cells(1, 1), Cells(LastRow, LastColumn)).AutoFill Destination:=Range(Cells(1, 1), Cells(LastRow, LastColumn + 1)), Type:=xlFillDefault
End Sub
这样,宏就会自动填充从顶行到相邻最后一列的数据。宏会根据当前数据的范围,自动确定最后一列的位置,并将数据填充到相邻的一列。
注意:在使用宏之前,建议先保存工作表的备份,以防止数据丢失或错误填充。
DB TALK 技术分享会
云+社区开发者大会 武汉站
云+社区技术沙龙[第27期]
云+社区技术沙龙[第7期]
云+社区开发者大会 长沙站
Elastic 中国开发者大会
DBTalk
云+社区技术沙龙[第16期]
领取专属 10元无门槛券
手把手带您无忧上云