VBA中Do Until循环遍历非连续列异常及空单元格填0问题求助

问题1：Do Until循环仅执行一次就退出 #

原因 #

原代码中Row变量在处理第一列（B列）时会递增到A列空行的位置，切换到E、H列时未重置Row为初始值1，导致Do Until Cells(Row, 1).Value = ""的条件直接成立，循环直接退出。

修复方法 #

在每次进入For Col循环时，将Row重置为1，确保每一列都从第一行开始处理。

问题2：空单元格被填充为0 #

原因 #

原代码仅用IsNumeric判断，当单元格为空或包含公式返回的空字符串时，可能被误判；此外数字处理逻辑未排除空值场景，导致部分空单元格被意外转换为0。

修复方法 #

增加IsEmpty判断，优先检查单元格是否为空，为空则跳过处理（保持空白）；同时优化数字处理逻辑，避免不必要的赋值操作。

修复后的完整代码 #

Sub CleanAndFormatColumns()
    Dim Row As Long
    Dim Col As Long
      
    For Col = 2 To 8 Step 3
        Row = 1 ' 每处理一列前重置行号为1
        Do Until Cells(Row, 1).Value = ""
            ' 先判断单元格是否为空，为空则跳过
            If IsEmpty(Cells(Row, Col)) Then
                ' 保持空白，不做任何操作
            ElseIf Not IsNumeric(Cells(Row, Col)) Then
                Cells(Row, Col).Clear ' 非数字则清除内容
            Else
                ' 处理数字格式，保留原数值并设置货币格式
                Cells(Row, Col).NumberFormat = "$ #,##0.00"
                ' 仅当值为0时转换为数值型（避免空值被转换）
                If Cells(Row, Col).Value = 0 Then
                    Cells(Row, Col).Value = CDec(Cells(Row, Col).Value)
                End If
            End If
            Row = Row + 1
        Loop
    Next Col
End Sub

代码说明 #

• 重命名子过程为CleanAndFormatColumns，更贴合功能语义
• 每列处理前重置Row = 1，确保循环从第一行开始执行
• 增加IsEmpty判断，空单元格直接跳过，维持空白状态
• 简化数字处理逻辑：统一用CDec转换数值，避免重复设置格式
• 移除不必要的Select操作，提升代码执行效率

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