如何用VBA进行求和

按alt+f11进vba编辑，双击thisworkbook，贴上以下代码
Option Explicit
Sub color()

Dim isnum As Boolean
Dim c, r, i, j As Integer
i = 1
j = 1
' 循环选e799bee5baa6e997aee7ad94e58685e5aeb9336择的每一行。
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执行宏

1、首先，在Excel中新建数据表格。

2、然后，在电脑键盘上按快捷键Alt+F11，从而Excel进入vba界面。zhidao

3、接专着，在Excel的vba界面依次点击插入属——模块，从而进入代码编写的界面。

4、最后，在代码编写的界面输入代码：

sub合计20()

Dim a%

Do Until Sheet2. Cells (a, 2)=""

Sheet2. Cells(2, 3)= Sheet2. Cells (2, 3)+ Sheet2. Cells (a, 2)

a=a+1

End sub

插入控件，将控件制定宏为刚才写的代码即可。

excel中的求和知功能主要使用到Excel的开始下的“求和”功能，具体操作步骤如下：

1、将光标移动到一个需要求和的Excel文件，双击鼠标左键，打开这个文件。

2、鼠标左键点击“开始”。

3、将鼠标光标移动到D2单元格，点击一下鼠标左键。

4、完成第三步后，道停顿一下再次点击坐标左键，不松手，向下移动光标，直到选中D2、D3、D4三个单元格（三个单元格颜色会有变化）。

5、鼠标左键点击“求和”按钮。专

6、得到求和结果。

注意事项：

1、若操作者熟悉Excel，确定第一步操作完成后界面就在开始界属面，可以不操作第二步“鼠标左键点击开始”，写出第二步的目的是为不熟悉Excel的人员准备，以防不小心点到其他界面而找不到第五步的求和按钮。

2、操作第五步“鼠标左键点击求和按钮”时，若不小心点到下拉符号，也不用担心，直接点击第一个求和即可，如下图所示。

稍微修改了一下zd

Private Sub CommandButton1_Click()
Dim n
n = [c65536].End(xlUp).Row + 1 '找出C列最后一个单元格的位置
Cells(n, 3) = "=SUM(B1:C" & n - 1 & ")" '对B,C两列求和内,并写入C列最后一个单元格
Cells(n, 3) = Cells(n, 3) '把公式转化为数值
[f1] = "本月数据已累加"
End Sub

可以再进容行简化

Private Sub CommandButton1_Click()
[f1] = "=SUM(B:C)" '对B,C两列求和
Cells([c65536].End(xlUp).Row + 1, 3) = [f1] '把数值,写入C列最后一个单元格
[f1] = "本月数据已累加"
End Sub