如何使用VBA宏实现Excel对角线单元格数据自动向下填充

你描述的F2、G3、H4、I5类对角线单元格符合列序号 - 行序号 = 4的分布规律，直接通过VBA遍历对应列批量填充即可，单次运行即可完成全量处理，适配大数据量场景，无需手动逐列复制。

完整实现代码 #

Sub FillDiagonalDataToRow50()
    Dim ws As Worksheet
    Dim startCol As Long, endCol As Long
    Dim i As Long, diagonalRow As Long
    
    ' 默认处理当前激活的工作表，可修改为Set ws = Sheets("你的工作表名")指定固定工作表
    Set ws = ActiveSheet
    
    ' 关闭屏幕更新，大幅提升大数据量下的运行速度
    Application.ScreenUpdating = False
    
    ' F列为第6列，作为处理起始列；第50行对应的对角线列序号为50+4=54（即BB列）
    startCol = 6
    endCol = 54
    
    For i = startCol To endCol
        ' 计算当前列对应的对角线单元格所在行号
        diagonalRow = i - 4
        ' 对角线行号超过50时终止循环
        If diagonalRow >= 50 Then Exit For
        ' 仅当对角线单元格存在数据时执行填充，避免空值覆盖
        If Not IsEmpty(ws.Cells(diagonalRow, i).Value) Then
            ' 将对角线单元格的值批量写入同列下方至第50行的所有单元格
            ws.Range(ws.Cells(diagonalRow + 1, i), ws.Cells(50, i)).Value = ws.Cells(diagonalRow, i).Value
        End If
    Next i
    
    ' 恢复默认屏幕更新设置
    Application.ScreenUpdating = True
    MsgBox "填充完成，所有对角线数据已向下填充至第50行", vbInformation
End Sub

使用方法 #

• 打开待处理的Excel文件，按下Alt+F11组合键调出VBA编辑器
• 在左侧工程栏右键点击当前工作簿名称，依次选择「插入」-「模块」
• 将上述代码完整粘贴到弹出的模块代码编辑窗口中
• 按下F5键运行宏，等待弹出完成提示即可回到工作表查看结果
• 如果需要调整填充的目标行号，直接替换代码中所有50为你需要的行号即可；如果对角线起始位置偏移，修改startCol初始值和diagonalRow = i - 4中的偏移差值即可适配其他对角线场景

注意：运行宏前建议备份原文件，避免误操作造成数据异常；如果Excel默认禁用宏，打开文件时在顶部安全警告栏选择「启用内容」即可正常运行代码。

内容的提问来源于stack exchange，提问作者Macro