Nhờ hỗ trợ gộp ô trong excel

[winsoft001]

Mình có dữ liệu file excel gồm hàng nghìn bản ghi như sau và muốn gộp nó thành 1 ô duy nhất (phân cách bởi dấu cách)
Nhờ các cao nhân chỉ giúp.
Rất mong được các bạn hỗ trợ
XIN CHÂN THÀNH CẢM ƠN

 

[BuiQuangThuan]

Rất mong được các bạn hỗ trợ
XIN CHÂN THÀNH CẢM ƠN

Bạn nên bỏ từ cao nhân đi. Thử hàm kia coi xem sao

 

[bebo021999]

Dữ liệu này để làm gì nhỉ. Nối mà dùng khoảng trắng thì nhầm chết
" ... Vĩnh Long An Giang ..."
có tận 3 tỉnh trong này.

 

[winsoft001]

View attachment 278177
Bạn nên bỏ từ cao nhân đi. Thử hàm kia coi xem sao

Cảm ơn bạn, sao mình ko dùng đc hàm này nhỉ, có phải cài gì thêm ko vậy ?

 

[BuiQuangThuan]

Cảm ơn bạn, sao mình ko dùng đc hàm này nhỉ, có phải cài gì thêm ko vậy ?

Offcice 2021 trở lên thì có hàm đó thì phải

 

[winsoft001]

Dữ liệu này để làm gì nhỉ. Nối mà dùng khoảng trắng thì nhầm chết
" ... Vĩnh Long An Giang ..."
có tận 3 tỉnh trong này.

Àh, mình chỉ ví dụ như này thôi, còn dữ liệu của mình nó khác

 

[bebo021999]

TEXTJOIN chỉ có trong Ex365 hay 2021
Không thì dùng VBA nhé?

 

[befaint]

TEXTJOIN FUNCTION ( Hàm TEXTJOIN )​

TEXTJOIN (Hàm TEXTJOIN)

Hàm TEXTJOIN kết hợp văn bản từ nhiều phạm vi và/hoặc các chuỗi, đồng thời tích hợp một dấu tách mà bạn chỉ định giữa mỗi giá trị văn bản sẽ được kết hợp. Nếu dấu tách là một chuỗi văn bản trống, hàm này sẽ ghép nối các phạm vi một cách hiệu quả.

support.microsoft.com

 

[winsoft001]

TEXTJOIN chỉ có trong Ex365 hay 2021
Không thì dùng VBA nhé?

Bạn có thể gửi cho mình xin file VBA đc ko
Mình cảm ơn

 

[befaint]

Gõ vào B2
=A2:A mút chỉ

Nhấn F9
Rồi Ctrl + H xóa cái ";" đi là được.

Hàm răng làm gì.

 

[bebo021999]

Dùng hàm UDF:

Option Explicit
Private Function noichuoi(ByVal r As Range)
Dim i&, rng, s As String
rng = r.Value
For i = 1 To UBound(rng)
    noichuoi = noichuoi & " " & rng(i, 1)
Next
End Function

 

[batman1]

Mình có dữ liệu file excel gồm hàng nghìn bản ghi như sau và muốn gộp nó thành 1 ô duy nhất (phân cách bởi dấu cách)
Nhờ các cao nhân chỉ giúp.
Rất mong được các bạn hỗ trợ

Nếu dữ liệu kiểu này thì làm sao hàng nghìn được. Trừ phi chúng lặp lại - hàng chục Hà Nội, Quảng Nam

 

[winsoft001]

Dùng hàm UDF:

Option Explicit
Private Function noichuoi(ByVal r As Range)
Dim i&, rng, s As String
rng = r.Value
For i = 1 To UBound(rng)
    noichuoi = noichuoi & " " & rng(i, 1)
Next
End Function

Cảm ơn bạn rất nhiều
Mình đã thử dùng code khác khá dài mà ko đc

 

[bebo021999]

Nếu dữ liệu kiểu này thì làm sao hàng nghìn được. Trừ phi chúng lặp lại - hàng chục Hà Nội, Quảng Nam

Chủ thớt không nói giới hạn là 63 ạ.
Cột A phía dưới có cả NewYork, Paris, London ... nữa
...
ka ka ka

 

[batman1]

Chủ thớt không nói giới hạn là 63 ạ.
Cột A phía dưới có cả NewYork, Paris, London ... nữa
...
ka ka ka

Đùa thôi. Hàng triệu, ít ra là nửa triệu mới hay chứ nghìn thì bõ bèn gì.