Dạ, em cám ơn anh/ chị ạ, mà không hiểu sao, e click vô chỗ chạy code nó không có chạy ạ
Bạn phải chuột vào nút lệnh, chọn Assign macro, chọn tên macro, nhấn ok rồi thử lại xem sao.
Bài này đâu cần Dic? Có thể viết gọn lại thế này:
Sub TONGHOP()
Dim I&, J&, Lr&, k&
Dim Arr(), KQ()
With Sheet1
Lr = .Range("B" & Rows.Count).End(xlUp).Row
If Lr < 3 Then Exit Sub
Arr = .Range("B3:E" & Lr).Value
End With
ReDim KQ(1 To UBound(Arr) * 100, 1 To 5)
For I = 1 To UBound(Arr)
For J = Arr(I, 3) To Arr(I, 4)
k = k + 1
KQ(k, 1) = k
KQ(k, 2) = Arr(I, 1)
KQ(k, 3) = Arr(I, 2)
KQ(k, 4) = J
KQ(k, 5) = J
Next J
Next I
Sheet2.[G3].Resize(10000, 5).ClearContents
Sheet2.[G3].Resize(k, 5) = KQ
End Subdạ, em làm được rồi ạ. hihi, e cám ơn ạ
Bài 2 có khai báo Dic mà đâu có xài đâu anh
Cách của bạn cũng đâu có dở. Xét về số lần lặp thì như nhau, chỉ tiếc là không tận dụng giá trị biến j mà thôi
Tại tôi thấy khai báo Dic và có Set Dic ...
Tôi thì khai báo dần dần, xài đế nđâu khai đến đó nên hỏng có dư
Ngược lại. nhiều người đến giờ vẫn còn "dùng chùa" biến. Xài cả lô lốc biến mà chẳng khai cái nào hoặc chỉ khai vài biến quan trọng.
có cùng đam mê với cháu rồi, đến giai đoạn giải phóng biến ở cuối, áp lực đề nặng lên vai
Vẫn có trường hợp bỏ sót, ví dụ ban đầu khai báo 1 Dict 1 mảng, sau đó code chạy không tốt đổi phương án 2 mảng, bỏ quên biến Dict dù không xài nữa.
Người khác nhìn vào rất "ngầu". Sửa vậy đôi khi không sửa hếtvaf cái kết là không đẹp tẹo nào. gặp những pha như vậy bác tính như nào?
Với biến thường thì sót vài biến còn được chứ với các biến đối tượng, khai báo và đã Set rồi mà không dùng thì không ổn nhỉ?
Rõ ràng là không ổn.
Phải nhận sai, xin lỗi, hứa không tái phạm, và khắc phục chứ sao bây giờ
