EXCEL宏 调用其它文档中表的字段求和
发布网友
发布时间：2022-05-11 22:54
共1个回答
热心网友
时间：2023-10-24 00:39
方式二：打开Excel文档，点击求和列或行最后一个空格，然后点击上面菜单中的“公式”->“自动求和”，然后点击Enter键即可得到求和的值。
方式三：打开Excel文档，点击求和列或行最后一个空格，然后点击上面菜单中的“公式”->“插入函数”，在弹出的页面中，选择函数中点击“SUM”，然后点击确定；然后再弹出的函数参数中，选择求和的区域。然后点击确定按钮，即可得到求和的值。
方式四：打开Excel文档，点击求和列或行最后一个空格，在上面的空白区域手动输入=sum（）字样，然后在括号中，选择需求和的区域。然后点击Enter键即可得到求和的值。追问我说的是在VBA宏编程中怎么写
追答按alt+f11进vba编辑，双击thisworkbook，贴上以下代码
Option Explicit
Sub color()
Dim isnum As Boolean
Dim c, r, i, j As Integer
i = 1
j = 1
' 循环选择的每一行。
For r = 1 To Selection.Rows.Count
' 循环选择的每一列。
For c = 2 To Selection.Columns.Count
If Selection.Cells(r, c).Text = Selection.Cells(r, c - 1).Text Then
i = i + 1
Else
Cells(Selection.Cells(r, c).Row, Selection.Columns.Count + j).Value = i
i = 1
j = j + 1
End If
' Selection.Cells(r, c).Interior.ColorIndex = ci
Next c
Cells(Selection.Cells(r, c).Row, Selection.Columns.Count + j).Value = i
i = 1
j = 1
Next r
End Sub
关闭vba后，选中数值范围，按Alt+f8执行宏
