Ghép chuỗi ký tự (3 người xem)

[BinhTam]

Chào các bạn;

Mình có danh sách tên trong file đính kèm

Mình muốn ghép các tên lại với nhau và được ngăn cách bởi dấu ";"

Mong nhận công thức hỗ trợ từ các bạn

Thanks.

 

[Hai Lúa Miền Tây]

Bạn xem cách củ chuối của mình trong file đính kèm nhé

 

[BinhTam]

ghép tên kết quả nằm trong 1 ô

Bạn xem cách củ chuối của mình trong file đính kèm nhé

Bạn ơi, mình muốn nằm trên 1 dòng thôi-tại ô có chứa công thức
ví dụ B2=công thức gì đó
thì có kết quả như mong muốn bên dưới

ví dụ : MEL;MERCHAN_KNIT;MERCHANDIZER_KNIT;MICHAEL.CHAN;…

 

[ptm0412]

Dùng hàm tự tạo (UDF)

 

[ptlong04x1]

Bạn chọn vùng muốn nối, bấm Ctrl G, kết quả sẽ hiện trong ô C2. Nhấn Alt F11 để xem code.

Sub Ghep()
    Dim Rng As Range
    
    Set Rng = Selection
    Range("C2") = Rng(1, 1)
    For i = 2 To Rng.Rows.Count
        Range("C2") = Range("C2").Text & ";" & Rng(i, 1).Text
    Next i
    
End Sub

 

[nguyendangkhoi]

còn mình muốn tách tên bằng VB thì sao anh

vi dụ:tên em là : nguyễn đăng Khôi

em muốn tách ra là Nguyễn đăng khôi bỏ phần tên em là :

 

[ptlong04x1]

Nếu ô D5 chứa "Tên em là : Nguyễn Đăng Khôi" thì dùng công thức =RIGHT(D5,LEN(D5)-LEN("Tên em là : ")) sẽ cho kết quả là : "Nguyễn Đăng Khôi"

 

[nguyendangkhoi]

Nếu ô D5 chứa "Tên em là : nguyễn đăng Khôi" thì dùng =RIGHT(D5,LEN(D5)-LEN("Tên em là : "))

Nhưng ý em là muốn dùng VB để áp dụng vào form của em (tự em có làm 1 form nhập hóa đơn. em muốn khi mở form lên nếu trên hóa đơn có tên thì nó sẽ hiện vào ListBoxten)

 

[ptlong04x1]

Không hiểu ý bạn lắm, nhưng nếu bạn chọn ô nào đó chứa "Tên em là : Nguyễn Đăng Khôi", chạy cái này thì ô D6 sẽ có kết quả là : "Nguyễn Đăng Khôi".

Sub Tach()   
   On Error Resume Next
   Range("D6") = Right(ActiveCell.Text, Len(ActiveCell.Text) - Len("Tên em là : "))
End Sub

 

[ndu96081631]

Không hiểu ý bạn lắm, nhưng nếu bạn chọn ô nào đó chứa "Tên em là : Nguyễn Đăng Khôi", chạy cái này thì ô D6 sẽ có kết quả là : "Nguyễn Đăng Khôi".

Sub Tach()   
   On Error Resume Next
   Range("D6") = Right(ActiveCell.Text, Len(ActiveCell.Text) - Len("Tên em là : "))
End Sub

Cũng may, trong VBA còn gõ được chử "Tôi tên là... " ---> Nếu là chử tiếng Việt có dấu nào đó khác hơn thì bạn... toi... Ẹc... Ẹc...
Mà sao bạn không dùng Replace cho nhanh... ví dụ:

Sub Tach()
   On Error Resume Next
   Range("D6") = Replace(ActiveCell, "Tên em là : ", "")
End Sub

Hãy cẩn thận với .Text và .Value ---> 2 cái khác nhau cả 1 trời

 

[o2xda_atom]

Nhờ Anh/Chị giúp , hướng dẫn em vấn đề của VBA trong Excell nhưsau:
Giả sử tại cell : E5=01 ; E6=10 ; E7=2014
Em muốn dùng code VBA trong Excel để nối các ô E5, E6,E7 để có1 biến có giá trị là "01/10/2014"
Rất mong Anh/Chị giúp đỡ,.
Xin cảm ơn.