一、请问如何用excel的VBA做出
如果你只是需要结果的话，可以用函数=COMBIN(20,8)直接求的结果，如果真是要用VBA实现的话按照 TAT萝卜说的做就行了，代码完善如下：
Sub zuhe()
Dim times As Double
For i1 = 1 To 13
For i2 = i1 + 1 To 14
For i3 = i2 + 1 To 15
For i4 = i3 + 1 To 16
For i5 = i4 + 1 To 17
For i6 = i5 + 1 To 18
For i7 = i6 + 1 To 19
For i8 = i7 + 1 To 20
times = times + 1
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
二、怎么在excel里实现
这个问题必须用VBA才能解决，代码如下：
Sub Macro1()
Dim rng As Range
For Each rng In Range("A1:A10")
T1 = InStr(rng, "（")
T2 = InStr(rng, "）")
If T1 > 0 Then
rng.Characters(T1 + 1, T2 - T1 - 1).Font.ColorIndex = 3
End If
Next rng
End Sub
需要注意的是：
1、第三行的：Range("A1:A10")，请更改为你需要批量操作的单元格区域；
2、第四第五行的双引号之间的两个括号必须和你表中那些括号一致，也就是表中是中文括号，代码也要用中文括号，表中是英文括号，代码也要是英文括号；
3、只能把所有单元格中第一个括号内的数字转为红色。
三、excel里面
excel里面，将筛选后的值再进行求和的方法步骤如下：
一、首先先把需要计算的数值筛选出来，例如下图需要筛选出北京地区；
二、首先选中要筛选的数据，选中后呈现加深状态；
三、工具栏上面选择排序和筛选按钮，下拉框下面选择筛选；
四、点击地区旁边小按钮，在出现的筛选框里选择需要计算的北京地区；
五、可以看到表格里只剩下北京地区，选中需要计算的数据，选择公式菜单下面的自动求和；
六、在选择的需要计算的数值下面就得到了求和的结果，完成！
