Word VBA实现表格第4列数字四舍五入的代码异常求解

原代码核心问题 #

• 逻辑冗余冲突：既通过选中单元格获取列索引，又硬编码指定处理第4列，选中区域的列判断完全无效
• 数值转换缺陷：调用Str()转换数值会自动在前缀添加空格，格式化后会出现多余空白字符
• 格式处理异常：当选中单元格无十进制制表位时，tabPos为-1，新增制表位会设置到非法位置
• 无容错机制：未处理表格合并单元格场景，调用Cell方法时会直接触发运行时错误

优化后实现代码 #

Sub RoundNumbersInFourthColumn()
    Dim aTable As Table
    Dim k As Long
    Dim rowMax As Long
    Dim s As String
    Dim aValue As Double
    Const formatStr As String = "#0.0000" ' 可自行修改保留的小数位数，比如#0.00就是保留2位
    
    ' 校验光标是否在表格内
    If Selection.Tables.Count = 0 Then
        MsgBox "请先将光标放在需要处理的表格内", vbExclamation
        Exit Sub
    End If
    
    Set aTable = Selection.Tables(1)
    rowMax = aTable.Rows.Count
    
    For k = 1 To rowMax ' 处理表格所有行，如需从指定行开始可修改起始值
        On Error Resume Next ' 跳过合并单元格
        Dim aCell As Cell
        Set aCell = aTable.Cell(Row:=k, Column:=4)
        If Err.Number = 0 Then
            ' 去除单元格末尾的结束标记
            s = Left(aCell.Range.Text, Len(aCell.Range.Text) - 2)
            If IsNumeric(s) Then
                aValue = Round(CDbl(s), 4) ' 四舍五入到4位小数，和formatStr对应
                aCell.Range.Text = Format(aValue, formatStr)
                ' 保留原单元格的段落对齐方式，如需固定对齐可自行修改
                aCell.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
            End If
        End If
        Err.Clear
        On Error GoTo 0
    Next k
    
    Set aCell = Nothing
    Set aTable = Nothing
    MsgBox "第4列数字四舍五入处理完成", vbInformation
End Sub

使用说明 #

1. 打开目标Word文档，将光标放在需要处理的表格任意位置
2. 运行上述宏即可自动完成第4列数字的四舍五入处理
3. 如需调整保留的小数位数，同步修改formatStr常量和Round函数的第二个参数即可

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