Sữa chữa code (1 người xem)

[lhthai]

Hiện tại mượn được file trên diễn đàn thấy hay
Nay nhờ các anh GPE bổ sung thêm cột item khi trả ra kết quả

 

[Cá ngừ F1]

[WARNING1]Bạn tham gia GPE đã lâu sao tên đề tài CHUNG CHUNG quá vậy, xem tạo TOPIC mới, đặt rõ câu hỏi nhé, mod quản lý box này sẽ khóa bài viết thôi[/WARNING1]

 

[Quang_Hải]

Code trong file của anh Ba Tê thì ai mà dám sửa lại, ai gan sửa coi chừng anh Ba Tê cho tê 3 trận luôn. Ặc ặc. Anh Ba có sửa lại thì nhớ chạy 1 vòng For thôi nhá. Anh xài phung phí lắm lắm đó. Spam cho vui, có bị xoá cũng hỏng sao. Hỏng bị xoá thì được tính bài mau lên sao chút.

 

[Ba Tê]

Code trong file của anh Ba Tê thì ai mà dám sửa lại, ai gan sửa coi chừng anh Ba Tê cho tê 3 trận luôn. Ặc ặc. Anh Ba có sửa lại thì nhớ chạy 1 vòng For thôi nhá. Anh xài phung phí lắm lắm đó. Spam cho vui, có bị xoá cũng hỏng sao. Hỏng bị xoá thì được tính bài mau lên sao chút.

Sửa thí thí đi mà, dù sao bài này với tiêu đề như vậy chắc không "lâu" đâu.

 

[Quang_Hải]

Sửa thí thí đi mà, dù sao bài này với tiêu đề như vậy chắc không "lâu" đâu.

Anh xúi đó nha, nếu bị mất bài thì đền anh
Như đã nói là em xài 1 vòng For. Code gọn gàng. Không trúng thì tính tiếp cái vụ thêm Dic vào. Dữ liệu như đám rừng ai đọc nổi

Sub QH()
Dim data(), Col As Long, i As Long, Res(1 To 65536, 1 To 3), k
With Sheet2
   Col = .[H7:AC7].Find(Sheet1.[D3], , , 1).Column - 4
   data = .Range(.[E9], .[E65536].End(3)).Resize(, Col).Value
End With
For i = 1 To UBound(data)
   If data(i, Col) <> "" Then
      k = k + 1
      Res(k, 1) = data(i, 1)
      Res(k, 2) = data(i, 2)
      Res(k, 3) = data(i, Col)
   End If
Next
If k Then Sheet1.[C5].Resize(k, 3) = Res
End Sub