Nhờ sửa code tính số lượng chi tiết (1 người xem)

[ngo15]

Nhờ các bạn sửa hộ code trong file đính kèm.
Xin chân thành cám ơn.

 

[concogia]

Nhờ các bạn sửa hộ code trong file đính kèm.
Xin chân thành cám ơn.

Thử code này, không biết bạn chỉ lấy kết quả hay phải thể hiện công thức nữa, tạm thời lấy kết quả & xuất ra ở cột [D] nhé

Sub DienSL()
  Dim I As Long, Vung As Range, iDau
  Set Vung = Range([B2], [B10000].End(xlUp))
    For I = 1 To Vung.Rows.Count
      If Vung(I).Offset(, -1) <> "" Then
        iDau = Vung(I)
        Vung(I).Offset(, 2) = Vung(I)
      Else
        Vung(I).Offset(, 2) = iDau * Vung(I)
      End If
    Next
End Sub

Thân

 

[ndu96081631]

Nhờ các bạn sửa hộ code trong file đính kèm.
Xin chân thành cám ơn.

Làm thử bằng công thức xem:

=IF(A2="",B2*LOOKUP(REPT("z",255),$A$2:$A2,$B$2:$B2),B2)

Ẹc... Ẹc...

 

[ngo15]

Cám ơn hai bạn đã giúp thật nhanh và đúng yêu cầu.
Xinh chân thành cám ơn