Cảm ơn bạn. Có thế nào dùng công thức bình thường, hoặc hàm VBA không ? Vì mình không muốn sử dụng công thức mãng nó làm chậm bảng tính
cảm ơn bạn, Sau khi test 1 ngày 1 đêm thì công thức bạn vẫn không chính xác. Ví dụ
Sub congdon()
On Error Resume Next
Dim I As Long, K As Long, t As Long
Dim sArr(), tong As Double
Dim Dic As Object
Set Dic = CreateObject("Scripting.dictionary")
sArr = Range("C4:D12").Value
ReDim dArr(1 To UBound(sArr), 1 To 2)
For I = 1 To UBound(sArr)
If Not Dic.exists(sArr(I, 1)) Then
K = K + 1
Dic(sArr(I, 1)) = K
tong = tong + sArr(I, 2)
End If
Next
Range("F4") = tong
Set Dic = Nothing
End SubCái này chuyển thành hàm UDF thì tiện và đúng theo yêu cầu "hàm VBA" hơn là để chạy code thế này, mỗi lần dùng code này lại phải bấm một phát. Không tiện bằng hàm UDF, nhập dữ liệu đến đâu hiện kết quả đến đó.
Gửi bạn 1 nốt nhạc . Công thức trên Excel ví dụ = congdon(C5 : 700) enter là lụm
Function CongDon(rngData As Range) As Double
Dim i As Long, k As Long
Dim sArr() As Variant
Dim Dic As Object
Dim tong As Double
Set Dic = CreateObject("Scripting.dictionary")
sArr = rngData.Value
For i = 1 To UBound(sArr)
If Not Dic.exists(sArr(i, 1)) Then
k = k + 1
Dic(sArr(i, 1)) = k
tong = tong + sArr(i, 2)
End If
Next i
CongDon = tong
Set Dic = Nothing
End FunctionKhông ổn nhé, file thiếu giả định mà.
Có đọc câu hỏi "nếu trùng lấy dòng nằm trên" chưa vậy ? Công thức hay nhưng trật lất yêu cầu câu hỏi mà cũng bay vào tung hô
Nếu Cột mã Arr(i,1) và cột số lượng cần cộng (arr(i,2) không nằm gần nhau thì .....
| A | 1 | |
| A | 2 | |
| B | 3 | |
| C | 4 | |
| D | 5 | |
| B | 6 | |
| A | 7 | |
| E | 8 | |
| C | 9 | |
| D | 10 | |
| G | 11 |
1 nốt nhạc em trai
Function congdoncachxa(inputRange As Range) As Long
Dim i As Long, k As Long, tong As Double
Dim sArr(), dArr()
Dim Dic As Object
Set Dic = CreateObject("Scripting.dictionary")
sArr = inputRange.Value
ReDim dArr(1 To UBound(sArr), 1 To 3)
For i = 1 To UBound(sArr)
If Not Dic.exists(sArr(i, 1)) Then
k = k + 1
Dic(sArr(i, 1)) = k
tong = tong + sArr(i, 3)
End If
Next i
congdoncachxa = tong
Set Dic = Nothing
End FunctionThế nếu cột số lượng cần cộng (arr(i,3)) không phải là cột 3 trong mảng Arr mà là 1 số nào đó (4,10,50,....) thì làm sao?Cứ mỗi lần mở rộng mảng Arr (tức là số cột cần cộng dồn có thể không cố định ) lại phải vào VBE để sửa lại số cột arr(i,3) thành Arr(i,....) cho đúng ý định thì có còn gọi là "một nốt nhạc" không?
| A | 1 | ||
| A | 2 | ||
| B | 3 | ||
| C | 4 | ||
| A | 5 | ||
| E | 6 | ||
| C | 7 | ||
| G | 8 | ||
| D | 9 | ||
| E | 10 | ||
| G | 11 |
| A | 1 | |||
| A | 2 | |||
| B | 3 | |||
| C | 4 | |||
| A | 5 | |||
| E | 6 | |||
| C | 7 | |||
| G | 8 | |||
| D | 9 | |||
| E | 10 | |||
| G | 11 |
Hàm này dùng 1 lần thì set object 1 lần + "xóa" object 1 lần. Nếu dùng cho 1 triệu dòng thì có nặng không vậy
TINHTONG1:=SUMX ( SELECTCOLUMNS ( VALUES ( Table1[STT] ), "STT", Table1[STT], "First_Số Lượng", CALCULATE ( FIRSTNONBLANK ( Table1[Số Lượng], 1 ) )), [First_Số Lượng])
