Em nhờ các Anh Chị trên group viết hộ em code lấy dữ liệu thõa mãn điều kiện với ạ

Chia sẻ bởi:hands

★★★★★

‹ Đánh dấu ô không có hình khi... Nhờ cách ẩn dòng trống ›

Quảng cáo

Em nhờ các anh chị giúp em bài toán này với ạ. Em miêu tả trong file đính kèm ạ. Em cảm ơn ạ!

Xài thử con macro này sau khi gán 3 Names 'SLuong', 'LNhuan' & 'TLLG' trên trang tính

Sub Them4DongMoiMa()
Dim Rws As Long, J As Long, W As Long
Dim DHang As String

Rws = .End(xlDown).Row: W = 3
.Resize(5 * Rws, 2).Value = ""
For J = 3 To Rws
DHang = Cells(J, "P").Value
W = W + 1: Cells(W, "B").Value = DHang
Cells(W, "C").FormulaR1C1 = "=SLuong": W = W + 1
Cells(W, "C").Value = "Doanh thu": W = W + 1
Cells(W, "C").FormulaR1C1 = "=LNhuan": W = W + 1
Cells(W, "C").FormulaR1C1 = "=TLLG"
Next J
MsgBox "Xong Rôi!", , W
End Sub

www.giaiphapexcel.com/diendan/threads/em-nh%E1%BB%9D-c%C3%A1c-anh-ch%E1%BB%8B-tr%C3%AAn-group-vi%E1%BA%BFt-h%E1%BB%99-em-code-l%E1%BA%A5y-d%E1%BB%AF-li%E1%BB%87u-th%C3%B5a-m%C3%A3n-%C4%91i%E1%BB%81u-ki%E1%BB%87n-v%E1%BB%9Bi-%E1%BA%A1.164217/