Excel VBA如何实现C-F列空白单元格自动填0并适配新行录入

原代码问题说明 #

• 对象赋值语法错误：VBA中给Range这类对象变量赋值必须加Set关键字，原代码缺少Set会直接触发运行时报错
• 范围写死：硬编码最大行号为1000，无法适配后续新增的行
• 无自动触发能力：普通子过程需要手动执行，无法在新行录入时自动运行

实现方案 #

1. 推荐方案：在UserForm提交逻辑中直接处理 #

性能最优，不会额外触发工作表事件，直接在你UserForm的提交按钮点击事件末尾添加如下代码即可，只处理本次新增的行：

' 注意将下方的newRow替换为你代码中存储本次提交数据行号的实际变量名
Dim col As Integer
For col = 3 To 6 ' 3对应C列，6对应F列
    If Cells(newRow, col) = "" Then
        Cells(newRow, col) = 0
    End If
Next col

2. 通用自动触发方案：工作表Change事件监听 #

适合所有录入场景，不管是UserForm提交还是手动在表格里录入都会自动生效，需要把代码放到对应工作表的代码模块中（不要放到普通模块里）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅对C-F列的修改生效
    If Not Intersect(Target, Me.Columns("C:F")) Is Nothing Then
        Dim cell As Range
        ' 临时关闭事件避免写入0时重复触发本过程
        Application.EnableEvents = False
        For Each cell In Intersect(Target, Me.Columns("C:F"))
            If cell.Value = "" Then
                cell.Value = 0
            End If
        Next cell
        Application.EnableEvents = True
    End If
End Sub

3. 历史空白单元格批量修复代码 #

如果需要先把表格中已有的C-F列空白单元格批量替换为0，使用修正后的如下代码：

Public Sub BlankCells()
    Dim rng As Range, lastRow As Long
    ' 动态获取C列最后一行有数据的行号，适配任意数据长度
    lastRow = Cells(Rows.Count, "C").End(xlUp).Row
    Set rng = Range("C2:F" & lastRow)
    
    Dim cell As Range
    For Each cell In rng
        If cell.Value = "" Then cell.Value = 0
    Next cell
End Sub

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