Tôi có một số thắc mắc:
Nếu dùng công thức thì các hàng nối với nhau do mình chọn. Còn dùng thủ tục thì mới xét đến các điều kiện như bạn mô tả:
Ngoài các điều kiện đó mình không nối anh, nếu nối thêm ở điều kiện bằng 4 ký tự đầu sẽ thêm thì mới nối các dữ liệu bên dưới,...nên mong dùng hàm VBA hoặc công thức mảng chạy nối theo đk đó anh.
Bạn ơi, biết thế nào là giới hạn của nó để chuyển sang dòng mới? 4 điều kiện kia sắp xếp ngẫu nhiên hay từ nhỏ đến lớn hay như thế nào?
Hihi, bài này chú Nghĩa Đep Trai muốn....."đai".
Dạ anh, điều kiện lặp đi lại của 4 số điều kiện tiếp theo:
Hihi, bài này chú Nghĩa Đep Trai muốn....."đai".--> Anh mà Die nên em cần trợ giúp từ anh đó hii
Nối thì không khó nhưng nó sắp xếp không theo trật tự thì "die"thiệt đó nha.
Dạ anh, giới hạn nó chuyển sang dòng mới là điều kiện tiếp theo hoặc cho đến dòng cuối cùng null, còn không là nối theo các điều kiện đó anh! Và dòng điều kiện có thể hết 0500 tới 0700 nhưng sẽ gặp lại tiếp 0500 đi theo các dòng bên dưới tiếp theo và sẽ nối lại như vậy đó anh. Giúp em đa tạ anh nhiều hii
Có thứ tự mà em
Cái này dùng HÀM, kể cả hàm tự tạo không biết có khả thi hay không!
Em cứ làm bừa đi, chưa đúng bạn í sửa vài lần là đúng thôi, ở không làm gì
Thôi để bác "con cò già" làm đi, nếu làm đúng thì "còn có giá" nếu không thì "con cò giả" nghe chưa! Ẹc ... ẹc ....
Hihi, chú chơi ác quá, tui nói bài này tui cũng...."tèo" mà
Thôi bác cò cứ làm đi, tèo tới đâu tác giả sửa tới đó! lkakakakk! Cố lên bác cò ơi.
Chạy code dưới đây.
Option Explicit
Sub noiMetNghi()
Dim Nguon
Dim Kq
Dim i, j, k
Nguon = Sheet1.Range("A2", Sheet1.Range("A2").End(xlDown))
ReDim Kq(1 To UBound(Nguon), 1 To 1)
With CreateObject("Scripting.Dictionary")
.Add "0500", ""
.Add "0620", ""
.Add "0700", ""
.Add "4610", ""
k = 0
For i = 1 To UBound(Nguon)
j = Left(Nguon(i, 1), 4)
If .exists(j) Then
k = k + 1
Kq(k, 1) = Nguon(i, 1)
Else
Kq(k, 1) = Kq(k, 1) & " &" & Nguon(i, 1)
End If
Next i
End With
With Sheet1.Range("A132").Resize(k, 1)
.Clear
.Value = Kq
.Interior.ThemeColor = xlThemeColorAccent6
End With
End SubCảm ơn anh CHAOQUAY nhiều, em thấy chạy kết quả quá ok, để em chạy xem chạy với dữ liệu nhiều, không hiểu nào em phiền anh thêm nhé!
