Mình tìm được Hàm VBA dùng để nối dữ liệu hiện (visible, filtered) như bên dưới. Tuy nhiên, mình cần nâng cao hơn là chỉ nổi dữ liệu DUY NHẤT.
Function JoinVisibleText(xRg As Variant, sptChar As String)
Dim rg As Range
For Each rg In xRg
If (rg.EntireRow.Hidden = False) And...