excel 如何将A列相同的数据所对应的B列多行数据相加到一起
展开全部
1.数据透视表-
2.公式,
将A列不重复态团贺的内帆派容 输入 C列
D1输入公式 =SUMPRODUCT((A$1:A$100=C1)*$B$1:$B$100)
向或哗下填充,
2.公式,
将A列不重复态团贺的内帆派容 输入 C列
D1输入公式 =SUMPRODUCT((A$1:A$100=C1)*$B$1:$B$100)
向或哗下填充,
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2011-09-22
展开全部
刚好我这之前做了一个系统誉斗 里面有段侍拆程序 你把它庆谈磨当宏用
Sub test()
Dim n
Dim arr() As Integer
Dim i As Long
Dim j As Long
Dim r As Long
r = Range("A65536").End(xlUp).Row
n = Range("A1")
j = 0
For i = 1 To r
If Cells(i, 1) = n Then
ReDim Preserve arr(j)
arr(j) = i
j = j + 1
Else
If UBound(arr) > 0 Then
Range("C1").Formula = "=SUM(cells(arr(0),2):cells(arr(UBound(arr)),2 ))" ’假设数据显示在c列
End If
Erase arr()
j = 0
n = Cells(i, 1)
ReDim Preserve arr(j)
arr(j) = i
j = j + 1
End If
Next i
Erase arr()
End Sub
Sub test()
Dim n
Dim arr() As Integer
Dim i As Long
Dim j As Long
Dim r As Long
r = Range("A65536").End(xlUp).Row
n = Range("A1")
j = 0
For i = 1 To r
If Cells(i, 1) = n Then
ReDim Preserve arr(j)
arr(j) = i
j = j + 1
Else
If UBound(arr) > 0 Then
Range("C1").Formula = "=SUM(cells(arr(0),2):cells(arr(UBound(arr)),2 ))" ’假设数据显示在c列
End If
Erase arr()
j = 0
n = Cells(i, 1)
ReDim Preserve arr(j)
arr(j) = i
j = j + 1
End If
Next i
Erase arr()
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
拉选你要相加的单元格,然后点表格收方的∑这个符号就行。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询