Excel 神技：用脚本轻松填满空白单元格，告别手工填补！

2023-12-27 05:57:57

在处理 Excel 表格时，经常遇到数据不完整的情况，需要对空白单元格进行填充。传统的手动填补方式不仅繁琐耗时，而且容易出错。今天，让我们揭秘一个 Excel 神技，利用脚本轻松填满空白单元格，让你的工作效率瞬间飙升！

准备工作

在开始编写脚本之前，需要确保你的 Excel 已启用宏功能。具体操作如下：

点击「文件」→「选项」→「信任中心」→「信任中心设置」→「宏设置」→「启用所有宏」

VBA 脚本编写

打开需要处理的 Excel 工作表，点击「开发工具」→「Visual Basic」，进入 VBA 编辑器。在「插入」菜单下，选择「模块」，输入以下脚本：

Sub FillBlanks()

    Dim ws As Worksheet
    Dim rng As Range
    Dim lastRow As Long, lastCol As Long

    ' 获取当前工作表
    Set ws = ActiveSheet

    ' 获取工作表中最后一行和最后一列
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

    ' 设置填充范围
    Set rng = ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol))

    ' 循环遍历范围内的单元格
    For Each cell In rng
        ' 如果单元格为空白，则填充它
        If cell.Value = "" Then
            cell.Value = "无"
        End If
    Next cell

End Sub

脚本说明

Sub FillBlanks() ：定义一个名为 "FillBlanks" 的宏。
Dim ws As Worksheet ：声明一个变量 "ws" 来存储当前工作表。
Dim rng As Range ：声明一个变量 "rng" 来存储要填充的单元格范围。
Dim lastRow As Long, lastCol As Long ：声明变量 "lastRow" 和 "lastCol" 来存储工作表中最后一行和最后一列。
Set ws = ActiveSheet ：设置 "ws" 为当前工作表。
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ：获取工作表中最后一行。
lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column ：获取工作表中最后一列。
Set rng = ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol)) ：设置要填充的单元格范围。
For Each cell In rng ：遍历范围内的每个单元格。
If cell.Value = "" Then ：检查单元格是否为空白。
cell.Value = "无" ：如果单元格为空白，则填充它。