Mình thử code ok rồi bạn, cho mình hỏi cái vùng: Arr = .Range("C3:F" & Lr).Value ví dụ mình muốn chọn nhiều vùng chi tiết trong vùng C3:F ví dụ là vùng C3, Vùng E3:F ( bỏ qua vùng D3) thì cần chỉnh code như thế nào bạn ?
tạm hiểu là vùng (mảng) là một hình chữ nhật (hoặc hình vuông) có góc trên và góc dưới. bạn cứ thay vị trí 2 góc đó vào 2 ô A2,A3 và chạy thử code thì sẽ thấy.
2 ô A2,A3 thì chỉ chọn được 1 vùng, mình muốn chọn đồng thời các vùng C3 và E3:F thì code chỉnh thế nào bạn
Thì bạn ngâm cứu phương thức UNION()
Sub ChonNhieuVung()
Dim Rng As Range
Set Rng = Union([C3].CurrentRegion, [E3].CurrentRegion)
MsgBox Rng.Address
End SubCó phải ý của bạn là có 2 hoặc nhiều hơn vùng tham chiếu nằm cách quãng nhau phải không? Nhưng là 1 Mảng kết quả , hay là nhiều mảng kết quả tương ứng?
Ừ ý của mình là có 2 hoặc nhiều hơn 2 vùng tham chiều nằm cách quãng nhau, trả về 1 mảng kết quả như ban đầu trong cột A2 ,tùy vào mình sử dụng mà sẽ chọn những vùng nào, như trong bài khi code tìm được trong bảng Btra có các kí tự đó sẽ ghi kết quả tương ứng trong cột A2, nếu để vùng tham chiếu rộng từ C3:F có những cột vẫn chứa kí tự như trong cột Btra nhưng mình không muốn code dò tìm trong cột đó
Nếu vậy Thì bạn cứ lấy Mảng tham chiếu theo chỉ số trong ô A2,A3 (mảng này sẽ chứa cả những cột không muốn tham chiếu (ví dụ cột không muốn thamn chiếu là cột F tức là cột số 4 trong mảng Arr(C3:G16) có 5 cột . Sau đó trong vòng lặp chạy và bỏ qua cột không muốn ấy bằng cách
Sub THU()
Dim i&, j&, Lr&, R&, C&
Dim Arr(), ArrBtra(), KQ()
Dim RngB As Range, goctren As Range, gocduoi As Range
Set RngB = Sheets("Btra").Range("A1").CurrentRegion
ArrBtra = Sheets("Btra").Range("A1:B" & RngB.Rows.Count).Value
With Sheets("DL")
'Set Rng = .Range("H2").CurrentRegion
'Lr = Rng.Rows.Count
Set goctren = .Range("A2")
Set gocduoi = .Range("A3")
Arr = .Range(goctren & ":" & gocduoi).Value
R = UBound(Arr): C = UBound(Arr, 2)
ReDim KQ(1 To R, 1 To 1)
For i = 1 To R
For j = 1 To C
If j = 4 Then GoTo tiêp
If Arr(i, j) <> Empty Then
For k = 1 To UBound(ArrBtra)
If UCase(Trim(Arr(i, j))) Like ArrBtra(k, 1) & "*" Then
KQ(i, 1) = ArrBtra(k, 2)
End If
Next k
End If
tiêp:
Next j
Next i
.Range("E3").Resize(i, 1).ClearContents
.Range("E3").Resize(i - 1, 1) = KQ
End With
MsgBox "Xong", vbInformation, "THÔNG BÁO"
End SubMình tạo lại bảng và chỉnh code theo bảng dưới nhưng bạn chỉnh giúp mình sao cho khi chạy code vẫn đổi như trong bảng tra nhưng những kí tự không thuộc bảng tra trong cột (Package, Short) không bị xóa đi, các kí tự có trong bảng tra vẫn xuất ra bình thường.
Khi code chạy nó sẽ lấy từng phần tử (arr(i,j)) trong mảng Tham chiếu Arr (vùng A5:AG300) nếu phần tử đó không rỗng Arr(i,j)<> empty thì tiếp tục lấy từng phần tử trong mảng ArrBtra(i,j) (các ký tự đầu) để so sánh với Arr(i,j), nếu trùng thì lấy phần tử cột 2 trong mảng ArrBtra(k,2) để ghi vào mảng kết quả KQ(i,1), sau khi duyệt xong hết các phần tử của mảng tham chiếu Arr ta được một mảng kết quả và đem gán mảng kết quả này xuống Sheet.
Cảm ơn bạn, Khi mình chỉ cho code chạy trong các cột bôi vàng, cột bôi xanh là các cột mà mình không muốn code chạy vào đó vì có thể có các kí tự giống trong Btra nên kết quả nếu code chạy trong các cột xanh đó thì kết quả sẽ không còn đúng mà nếu như nhập các cột không muốn code chạy vào: If j = 4 Or j = 34 Then GoTo tiêp như trong bài thì trong trường hợp của mình sẽ từ cột 6 tới cột 33 sẽ Or rất dài.
Nếu các cột liền nhau không cách quãng (ví dụ: 6 34 chứ không là 6,7,10,11,13
