Bài này của bạn đâu phải dùng sumif nhỉ.
Vậy bạn thử tính kết quả bằng tay vào file xem sao nhé.
Bạn thử code siêu dở này xem:
Option Explicit
Sub Dung_Tin_Vao_Code_Cua_OT()
Dim aMaHang() As Variant, aDulieu() As Variant
Dim R As Long, I As Long, J As Long, Lr As Long
With ThisWorkbook.Worksheets("Du lieu")
Lr = .Cells(.Rows.Count, "B").End(xlUp).Row
If Lr < 4 Then
MsgBox "Khong co du lieu dau vao": Exit Sub
End If
aDulieu = .Range("B3:G" & Lr).Value2
End With
With ThisWorkbook.Worksheets("KQ")
Lr = .Cells(.Rows.Count, "C").End(xlUp).Row
If Lr < 4 Then
MsgBox "Khong co du lieu can tim": Exit Sub
End If
aMaHang = .Range("C4:E" & Lr).Value2
For R = 1 To UBound(aMaHang, 1)
For I = 1 To UBound(aDulieu, 1)
For J = 1 To UBound(aDulieu, 2)
If aMaHang(R, 1) = aDulieu(I, 1) Then
If aMaHang(R, 2) = aDulieu(1, J) Then
aMaHang(R, 3) = aDulieu(I, J)
End If
End If
Next J
Next I
Next R
With .Range("G4").Resize(UBound(aMaHang, 1), UBound(aMaHang, 2))
.ClearContents
.Value = aMaHang
End With
End With
End SubCảm ơn Chị, nhưng khi chạy VBA thì dữ liệu (double: nhân đôi) thêm từ Cột G đến Cột I. Nếu được thì mình cần anh hỗ trợ lấy dữ liệu như vậy nhưng không cần dữ liệu có sẵn cột B, C, D
Cô quân nhân code hay vậy mà bài của mình không quá khó mà lại không code được, kỳ à nha
Option Explicit
Sub Dung_Tin_Vao_Code_Cua_OT()
Dim aDULIEU() As Variant, aKETQUA() As Variant
Dim iMa As Long, jPhong As Long, r As Long
Dim DongCuoi As Long, CotCuoi As Long
Const B_D_C_E As Integer = 4
With ThisWorkbook.Worksheets("Du lieu")
DongCuoi = .Cells(.Rows.Count, "B").End(xlUp).Row
CotCuoi = .Cells(3, .Columns.Count).End(xlToLeft).Column
If DongCuoi < 4 Or CotCuoi < 3 Then
MsgBox "Khong co du lieu dau vao": Exit Sub
End If
DongCuoi = DongCuoi - 2: CotCuoi = CotCuoi - 1
aDULIEU = .Range("B3").Resize(DongCuoi, CotCuoi).Value2
ReDim aKETQUA(1 To DongCuoi * CotCuoi, 1 To B_D_C_E)
End With
With ThisWorkbook.Worksheets("KQ")
For jPhong = 2 To UBound(aDULIEU, 2)
For iMa = 2 To UBound(aDULIEU, 1)
r = r + 1
aKETQUA(r, 1) = r
aKETQUA(r, 2) = aDULIEU(iMa, 1)
aKETQUA(r, 3) = aDULIEU(1, jPhong)
aKETQUA(r, 4) = aDULIEU(iMa, jPhong)
Next iMa
Next jPhong
DongCuoi = .Cells(.Rows.Count, "B").End(xlUp).Row
If DongCuoi > 3 Then
DongCuoi = DongCuoi - 3
.Range("B4").Resize(DongCuoi, B_D_C_E).ClearContents
End If
.Range("B4").Resize(r, B_D_C_E) = aKETQUA
End With
End SubCô quân nhân code hay vậy mà bài của mình không quá khó mà lại không code được, kỳ à nha
Rất tốt cảm ơn bạn. Nhân tiện làm phiền bạn giúp thêm nếu Sheet "KQ" thêm 1 số dòng để nhập dữ liệu bằng tay. Do vậy Cột "Phòng ban và số lượng" sẽ dời qua Cột S và T. Cảm ơn
Nên dùng Pivot Table đi, dời cột, chỉnh bảng không vất vả như VBA phụ thuộc
Quan trọng là học hỏi VBA thoi anh oi.
Vậy thì cứ học thôi, học thì nên học sao cho kỹ: thử làm, thử sai, chạy thử trước khi hỏi. Sao cho dời cột vẫn áp dụng được
Bạn kiểm tra nhé:
Sub Khong_Tot_Lam()
Dim aDULIEU() As Variant, aSaoLaiMaHang() As Variant, aKETQUA() As Variant
Dim iMa As Long, jPhong As Long, r As Long, SoDong As Long, SoCot As Long, Wb As Workbook
Const O_Nhap_Lieu_Dau_Tien As String = "B4" 'Chỉnh sửa ô đầu tiên điền dữ liệu ở đây
Const SoCotThemVao As Long = 15 'điền số cột thêm vào ở đây,ví dụ bạn thêm mới 15 cột (tính từ cột D đến cột R) thì điền 15
Set Wb = ThisWorkbook
With Wb.Worksheets("Du lieu")
SoDong = .Cells(.Rows.Count, "B").End(xlUp).Row
SoCot = .Cells(3, .Columns.Count).End(xlToLeft).Column
If SoDong < 4 Or SoCot < 3 Then
MsgBox "Khong co du lieu dau vao": Exit Sub
End If
SoDong = SoDong - 2: SoCot = SoCot - 1
aDULIEU = .Range("B3").Resize(SoDong, SoCot).Value2
ReDim aSaoLaiMaHang(1 To SoDong * SoCot, 1 To 2)
ReDim aKETQUA(1 To SoDong * SoCot, 1 To 2)
End With
With Wb.Worksheets("KQ")
For jPhong = 2 To UBound(aDULIEU, 2)
For iMa = 2 To UBound(aDULIEU, 1)
r = r + 1
aSaoLaiMaHang(r, 1) = r
aSaoLaiMaHang(r, 2) = aDULIEU(iMa, 1)
aKETQUA(r, 1) = aDULIEU(1, jPhong)
aKETQUA(r, 2) = aDULIEU(iMa, jPhong)
Next iMa
Next jPhong
SoDong = .Cells(.Rows.Count, "B").End(xlUp).Row
If SoDong > 3 Then
SoDong = SoDong - 3
.Range(O_Nhap_Lieu_Dau_Tien).Resize(SoDong, SoCotThemVao + 4).ClearContents
End If
With .Range(O_Nhap_Lieu_Dau_Tien)
.Resize(r, 2) = aSaoLaiMaHang
.Offset(, SoCotThemVao + 2).Resize(r, 2) = aKETQUA
End With
End With
End SubNếu nghĩ xa về tương lai thì học Pivot quan trọng hơn học code.
Vâng ạ, cháu cảm ơn Bác!
Quá tuyệt, nhưng lần cuối làm phiền bạn là bên kế toán cần bổ sung thêm cột ở Sheet "Du lieu" thì chỉnh sửa như thế nào.
