EXCEL公式自动求和，如何做到？

具体解决方法 *** 作步骤如下：

1、为了更好说明，举个简单例子，在EXCEL表格中，A1=1，A2为空，A3=2，A4为空，要使A2=A1，A4=A3，那要如何设置（如下图）：

2、用鼠标左键点住A列拖拉选定区域，然后再在键盘上按“Ctrl+G”键，这时会出现“定位”，我们点击“定位条件”（如下图）：

3、进入“定位条件”后，点击“空值”，这时会将空格处于选择状态（A4可能不会被选住）；或者按下Ctrl键的时候，点选A2、A4单元格（如下图）：

4、选中“空值”这个选项，确定，然后按键盘上的“=”，之后直接按向上方向键“↑”， 最后按CTRL+回车（如下图）：

5、通过上面的步骤，则所有数据自动填充完成（如下图）：

1首先用鼠标左键单击需要填充合计的单元格,之后点击表格页面上方的“公式”选项。

2点击下方“自动求和”按钮,等待单元格内出现求和公式。

3用鼠标左键拖动单元格选中需要进行求和计算的选区,点击键盘上“Enter”按键或使用鼠 标左键单击表格空白处即可。

汇总公式在excel怎么用， *** 作方法如下。

1、首先在电脑中，打开一个EXCEL表格，如下图所示。

2、然后在打开的这个表格中，点击工具栏上的求和，如下图所示。

3、接着在下拉选项中，选择列表中的求和选项，如下图所示。

4、这时按回车后，在表格中，就会看到汇总了。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

endcol = [IV2]End(xlToLeft)Column

j = 1

Dim lishi(1 To 10000)

Static i As Integer

i = 4

line3:

r = 1

line1:

    If Cells(2, i)Value = Cells(2, i + 1)Value Then

        r = r + 1

        i = i + 1

        GoTo line1

    Else

        lishi(j) = r

        j = j + 1

        i = i + 1

        If i = endcol + 1 Then GoTo line2

        GoTo line3

    End If

line2:

maxlishi = ApplicationWorksheetFunctionMax(lishi())

Dim lishi1(1 To 10000)

Dim lishi2(1 To 10000)

For q = 1 To j

    lishi1(q) = lishi(q  2 - 1)

    lishi2(q) = lishi(q  2)

Next

maxlishi1 = ApplicationWorksheetFunctionMax(lishi1())

maxlishi2 = ApplicationWorksheetFunctionMax(lishi2())

DebugPrint maxlishi1, maxlishi2

a = 1

For z = 4 To endcol

    If Cells(2, z)Value = Cells(2, z + 1)Value Then

        a = a + 1

    Else

        GoTo line4

    End If

Next

line4:

If a = maxlishi1 Then

    With Range("b2")Borders

        LineStyle = xlContinuous

        Weight = xlMedium

        ColorIndex = 5

    End With

    Range("b2")FontColorIndex = 3

    Range("b2")InteriorColorIndex = 6

    Range("b2")Value = "连" & Range("d2") & maxlishi1

Else

    With Range("b2")Borders

        LineStyle = xlNone

    End With

    Range("b2")FontColorIndex = 1

    Range("b2")InteriorColorIndex = xlNone

    If Range("d2")Value = "错" Then

        dx = "对"

    Else

        dx = "错"

    End If

    Range("b2")Value = "历史连" & Range("d2") & maxlishi1 & Chr(10) + Chr(13) & "连" & dx & maxlishi2

End If

End Sub

公式是没办法完成这么复杂的计算和判断的，只能用VBA了，我做了一下，用上面这段代码。。。经过我反复测试是完全正确的。而且全部自动的。根据你的那张图来写的这段代码。所以直接复制，不用更改。

我不知道你这张表有多少数据，所以设数组大小的时候设的是10000,如果你有需要可以直接改代码。如果最近的数据是连对或连错达到历史最大值时将会蓝框黄底红字显示。如果最近的数据没有达到历史最大值时将会黑字显示历史的连错连对记录。如果要更改显示你也可以直接改代码。。。

给你讲讲怎么用这个代码。打开excel，按alt+F11打开VBE，按ctrl+r打开工程资源管理器。然后双击管理器中的sheet1（你的数据在sheet1就点sheet1,在sheet2就点sheet2）。然后把我上面的代码全部复制到右边的代码窗口，像我这个图这样，然后关闭，你在excel中就能看到效果了，如果还有问题联系我！ 

你复制的时候注意把代码复制完，不然会出错。。。反正我测试过很多次，结果绝对没问题。。