Các anh chị giúp em code cho bài toán liệt kê theo số lượng với ạ

Liên hệ QC

hazooo

Thành viên mới
Tham gia
16/9/20
Bài viết
19
Được thích
4
Các anh chị có thể giúp em đoạn code liệt kê mà e có ví dụ ở trong file đươc không ạ
 

File đính kèm

  • liet_ke.xlsx
    9.1 KB · Đọc: 17
Chắc từ đây mà ra phải không bạn?
 
Các anh chị có thể giúp em đoạn code liệt kê mà e có ví dụ ở trong file đươc không ạ
Thử.
Mã:
Sub dichuyen()
   Dim a, i As Long, arr, kq, j As Integer, k As Integer, max As Long
   With Sheets("sheet1")
       arr = .Range("C3:F8").Value
       ReDim kq(1 To 100, 1 To 3)
       For j = 2 To 4
           a = 0
           For i = 1 To UBound(arr)
               For k = 1 To arr(i, j)
                   a = a + 1
                   kq(a, j - 1) = arr(i, 1)
               Next k
           Next i
           If max < a Then max = a
       Next j
       .Range("D12:F1000").ClearContents
       .Range("d12:F12").Resize(max).Value = kq
   End With
End Sub
 

File đính kèm

  • liet_ke-GPE.xlsm
    46.7 KB · Đọc: 6
Chắc từ đây mà ra phải không bạn?
Bị anh phát hiện rồi, em tính liệt kê lại các đoạn đã cắt trong một cây sắt ban đầu rồi tạo biểu đồ cột chồng cho dễ hình dung
Bài đã được tự động gộp:

Buồn buồn thế gian nhắm mắt làm chơi ... cho thư giãn đầu óc một tí...
nên đụng đâu code đó nhá!!!
Văn anh hay lại code giỏi, em phải học hỏi nhiều rồi!
Cảm ơn anh nhé
Bài đã được tự động gộp:

Buồn buồn thế gian nhắm mắt làm chơi ... cho thư giãn đầu óc một tí...
nên đụng đâu code đó nhá!!!
Văn anh hay lại code giỏi, em phải học hỏi nhiều rồi!
Cảm ơn anh nhé
 
Web KT
Back
Top Bottom