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

hazooo

Thành viên mới
Tham gia ngày
16 Tháng chín 2020
Bài viết
19
Được thích
4
Điểm
15
Tuổi
25
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

huuthang_bd

Chuyên gia GPE
Tham gia ngày
10 Tháng chín 2008
Bài viết
7,961
Được thích
9,305
Điểm
860
Nơi ở
TP.HCM
Chắc từ đây mà ra phải không bạn?
 

snow25

Thành viên gắn bó
Tham gia ngày
24 Tháng bảy 2018
Bài viết
2,719
Được thích
2,669
Điểm
360
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
 

thnghiachau

Thành viên tiêu biểu
Tham gia ngày
14 Tháng chín 2009
Bài viết
705
Được thích
560
Điểm
860

File đính kèm

hazooo

Thành viên mới
Tham gia ngày
16 Tháng chín 2020
Bài viết
19
Được thích
4
Điểm
15
Tuổi
25
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é
 
Top Bottom