Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,124
- Được thích
- 17,588
- Giới tính
- Nam
Đúng là không cần Dic cũng được.Đọc bài bạn tôi mà chắc bạn chưa biết trích dẫn nên lung tung, muốn ẩn thì chọn nguyên cột đó rồi chuột phải hide column là xong, không dùng cột phụ vẫn được nhưng vì để bạn biết cách sửa và công thức đơn giản tôi mới dùng cột phụ.
Dùng VBA thì cách của Bác Bate nhen. Tại sao dùng Dic dữ vậy Bác Bate, em chỉ dùng vòng lặp duyệt qua là đủ rồi
Đôi khi hình dung cách làm rồi dựa vào đó mà viết, không kịp xem lại và so sánh xem có cách nào ngắn gọn hơn không.
Giải quyết xong chuyện trước đi rồi có ai "chém" thì xem lại sau cũng được mà.
PHP:
Public Sub KyCucQua()
Dim sArr(), dArr(), tArr(), I As Long, J As Long, K As Long, SoXe As String
With Sheets("VANCHUYEN")
sArr = .Range(.[A6], .[A6].End(xlDown)).Resize(, 20).Value
End With
ReDim dArr(1 To UBound(sArr, 1), 1 To 15)
With Sheets("BC VAN CHUYEN")
SoXe = .[B2].Value
tArr = .Range("A4:O4").Value
For I = 1 To UBound(sArr, 1)
If sArr(I, 2) = SoXe Then
K = K + 1: dArr(K, 1) = K
For J = 2 To 15
dArr(K, J) = sArr(I, tArr(1, J))
Next J
End If
Next I
.[A6:O1000].ClearContents
If K Then
.[A6].Resize(K, 15) = dArr
Else
MsgBox "Khong co so lieu", , "GIAIPHAPEXCEL"
End If
End With
End Sub
Lần chỉnh sửa cuối: