单元格 | ExcelOffice【微信公众号：水星Excel】

Sub QQ1722187970()
    Dim oRng As Range
    Dim oCell As Cell
    Dim oTable As Table
    Dim dSum As Double
    Dim sCellValue
    Dim arr()
    Dim i, j
    With Word.Application.Selection
        For Each oCell In .Cells
        sCellValue = oCell.Range.Text
        '把单元格结尾字符去掉
        sCellValue = VBA.Replace(sCellValue, Chr(13) & Chr(7), "")
            '判断单元格内容是否是数值
            If VBA.IsNumeric(sCellValue) Then
                ReDim Preserve arr(i)
                arr(i) = sCellValue
                dSum = dSum + arr(i)
                i = i + 1
            End If
        Next
    End With
    MsgBox "选择的数据是：" & Join(arr, " ") & vbCrLf & "共" & i & "个数据" & vbCrLf & "求和结果为：" & dSum
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

Sub QQ1722187970()

Dim oRng As Range

Dim oCell As Cell

Dim oTable As Table

Dim dSum As Double

Dim sCellValue

Dim arr()

Dim i, j

With Word.Application.Selection

For Each oCell In .Cells

sCellValue = oCell.Range.Text

'把单元格结尾字符去掉

sCellValue = VBA.Replace(sCellValue, Chr(13) & Chr(7), "")

'判断单元格内容是否是数值

If VBA.IsNumeric(sCellValue) Then

ReDim Preserve arr(i)

arr(i) = sCellValue

dSum = dSum + arr(i)

i = i + 1

End If

MsgBox "选择的数据是：" & Join(arr, " ") & vbCrLf & "共" & i & "个数据" & vbCrLf & "求和结果为：" & dSum

End Sub

[……]

阅读全文>>>

word表格单元格中的结尾字符是什么？

2018年3月12日作者：水星Excel

1,553 次浏览暂无评论

在word表格中每个单元格结尾都会出现一个类似段落分隔符的字符，如下图所示：乍看之下，跟段落分隔符没有任何区别，那真实的情况是否如此呢？接下来我们用代码来测试下：
[crayon-5fbd6c64c28cb[……]

阅读全文>>>

如何用vba处理word表格？

2017年1月11日作者：水星Excel

1,839 次浏览暂无评论

在word中可以插入表格，这个表格与excel的表格很相似，但是在用vba处理word表格时，还是有所区别。

每一个word表格就是一个table对象，行列分别属于row、column对象，每一个单元格[……]

阅读全文>>>

什么是excel、wps工作簿、工作表、单元格、行、列？

一、工作簿

Excel单元格中输入的内容是如何存储显示的？

一、输入0开头[……]

如何用vba对选中的word表格单元格的数字进行求和？

word表格单元格中的结尾字符是什么？

如何用vba处理word表格？

感谢你的支持，我将持续地写出更好的文章。

热门文章

最近文章

微信公众号