如何创建一个宏来自动填充从顶行到相邻最后一列的数据？

创建一个宏来自动填充从顶行到相邻最后一列的数据，可以按照以下步骤进行操作：

1. 打开Excel，并进入开发工具栏。在Excel 2010及更高版本中，可以通过点击"文件" -> "选项" -> "自定义功能区"，勾选"开发工具"来显示开发工具栏。
2. 在开发工具栏中，点击"Visual Basic"按钮，打开Visual Basic for Applications（VBA）编辑器。
3. 在VBA编辑器中，可以看到"项目资源管理器"窗口和"属性窗口"。在"项目资源管理器"窗口中，双击"Sheet1"（或其他你想要应用宏的工作表）。
4. 在"代码窗口"中，输入以下VBA代码：

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

1. 关闭VBA编辑器。
2. 在Excel工作表中，选中需要填充数据的范围。
3. 在开发工具栏中，点击"宏"按钮，选择"AutoFillData"宏，并点击"运行"按钮。

这样，宏就会自动填充从顶行到相邻最后一列的数据。宏会根据当前数据的范围，自动确定最后一列的位置，并将数据填充到相邻的一列。

注意：在使用宏之前，建议先保存工作表的备份，以防止数据丢失或错误填充。