Nhờ anh/chị giúp đỡ công thức SumProduct mảng động theo cột bằng VBA

[Minh Tùng]

Em có file mẫu đã xử lý được hàm SumProduct tĩnh nhưng em muốn áp dụng cho mảng động theo cột bằng VBA mà em chưa thực hiện được.
Mong được anh/chị trong diễn đàn hỗ trợ ạ!
Em cám ơn thật nhiều.

Em có kèm theo file mẫu, anh chị xem file giúp em.

 

[stao]

Em có file mẫu đã xử lý được hàm SumProduct tĩnh nhưng em muốn áp dụng cho mảng động theo cột bằng VBA mà em chưa thực hiện được.
Mong được anh/chị trong diễn đàn hỗ trợ ạ!
Em cám ơn thật nhiều.

Em có kèm theo file mẫu, anh chị xem file giúp em.

Vầy đúng yêu cầu không nhỉ?

 

[phulien1902]

Vầy đúng yêu cầu không nhỉ?

Có lẽ phải nhập số thứ tự cho cột A và đặt:

Lr = .Range("A" & Rows.Count).End(xlUp).Row

thì code mới chạy bác nhỉ?

 

[Minh Tùng]

Vầy đúng yêu cầu không nhỉ?

Cám ơn anh, Code của anh đúng rồi ạ!
Em sửa lại tí nữa cho đẹp. Hehe


Sub SumProduct_Dong()
Dim i, Lr, Lc As Long, ArrGia, ArrSL As Variant

With Sheet1
.Range("B3:B1000").ClearContents
Lr = .Range("C1").CurrentRegion.Rows.Count
Lc = .Cells(1, Columns.Count).End(xlToLeft).Column

ArrGia = Range(Cells(2, 3), Cells(2, Lc)).Address
For i = 1 To Lr - 2
ArrSL = .Range("C" & i + 2, Cells(i + 2, Lc)).Address
.Range("B2").Offset(i, 0).Formula = "=Sumproduct((" & ArrGia & ")*(" & ArrSL & "))"
Next
End With
End Sub

Bài đã được tự động gộp: 31/10/19

Có lẽ phải nhập số thứ tự cho cột A và đặt:

Lr = .Range("A" & Rows.Count).End(xlUp).Row

thì code mới chạy bác nhỉ?

Dạ, cái này em đặt biến Lr sửa dụng CurrentRegion luôn ạ: Lr = .Range("C1").CurrentRegion.Rows.Count