- Tham gia
- 17/8/08
- Bài viết
- 8,599
- Được thích
- 16,662
- Giới tính
- Nam
Tôi có một bảng dữ liệu, sau khi lọc duy nhất rồi cộng dồn theo cột, nhưng lại vướng là muốn thêm 1 hàng dưới cùng để làm hàng tổng cộng của các cột.
Xin vui lòng hướng dẫn.
Xin vui lòng hướng dẫn.
PHP:
Private Sub SumDaTa()
'On Error Resume Next
Dim i As Long, iR As Long, iC As Long
Dim sArray, Tmp, Arr()
sArray = Range(Sheet2.[A1], Sheet2.[A65536].End(xlUp)).Resize(, 15)
ReDim Arr(1 To UBound(sArray, 1), 1 To 15)
iR = 0
With CreateObject("Scripting.Dictionary")
For i = 1 To UBound(sArray, 1)
If sArray(i, 1) <> vbNullString Then
Tmp = sArray(i, 1)
If Not .Exists(Tmp) Then
iR = iR + 1
.Add Tmp, iR
Arr(iR, 1) = Tmp: Arr(iR, 2) = sArray(i, 2)
For iC = 3 To 15
Arr(iR, iC) = sArray(i, iC)
Next
Else
For iC = 3 To 15
Arr(.Item(Tmp), iC) = Arr(.Item(Tmp), iC) + sArray(i, iC)
Next
End If
End If
Next
End With
Sheet2.[R1].Resize(iR, 15).Value = Arr
End Sub