text 如何用VBA遍历含有合并单元格的文字表格？

Posted 2021-04-30

Sub QQ1722187970()
    Dim oCell As Cell
    Dim oTable As Table
    Dim iCol
    For Each oTable In ActiveDocument.Tables
        With oTable
            iCol = .Columns.Count
            For i = 2 To iCol
                '先选中单个单元格
                .Cell(1, i).Select
                '再选中整列
                Word.Selection.SelectColumn
                '然后遍历
                For Each oCell In Word.Selection.Cells
                    With oCell
                        sText = oCell.Range.Text
                        sText = Replace(sText, Chr(13) & Chr(7), "")
                        If IsNumeric(sText) Then
                            sText = VBA.Format(sText, "##0.00"): oCell.Range = sText
                        End If
                    End With
                Next
            Next i
        End With
    Next
End Sub