Gộp nhiều ô liền nhau trong excel thành một ô

[bebe08]

Hi all!
Mình muốn gộp nhiều ô thành một ô giữa các data của các ô có dấu ",", các ô cần gộp lại là đứng liền nhau, có cách nào không phải chỉ đến từng ô mà chọn vùng được không?
vd: 1 2 3 ..... gộp thành 1,2,3,4,....
Vì số ô rất nhiều mình không thể ngồi chọn từng ô để cho vào công thức được. Ai biết chỉ giúp mình nhé! tks

 

[logica]

Chưa hiểu lắm nhưng làm đại! Bạn thử hàm UDF này xem đúng í bạn không?

Function Ghep(Vung As Range) As String
Dim rng As Range
For Each rng In Vung
If rng.Text <> "" Then Ghep = Ghep & rng.Text & ","
Next
Ghep = Left(Ghep, Len(Ghep) - 1)
End Function

 

[bebo021999]

Hi all!
Mình muốn gộp nhiều ô thành một ô giữa các data của các ô có dấu ",", các ô cần gộp lại là đứng liền nhau, có cách nào không phải chỉ đến từng ô mà chọn vùng được không?
vd: 1 2 3 ..... gộp thành 1,2,3,4,....
Vì số ô rất nhiều mình không thể ngồi chọn từng ô để cho vào công thức được. Ai biết chỉ giúp mình nhé! tks

Giả sử bạn có dữ liệu từ ô A1 đến A100
tại B1, bạn gõ: = A1:A100 sau đó nhấn f9 - Ctrl-C - Esc - Ctrl-V, sau đó bỏ 2 dấu ngoặc đầu và cuối là được

 

[bebe08]

Cách của bạn logica hay thật. Còn cách của banh bebo021999 cũng được nhưng chưa đúng ý mình lắm.
Tks các bạn nhé.

 

[thanhhungba]

bạn viết chưa cụ thể hãy vào đây http://violet.vn/th-binhan-bacbinh-binhthuan

 

[nmhung49]

Hi all!
Mình muốn gộp nhiều ô thành một ô giữa các data của các ô có dấu ",", các ô cần gộp lại là đứng liền nhau, có cách nào không phải chỉ đến từng ô mà chọn vùng được không?
vd: 1 2 3 ..... gộp thành 1,2,3,4,....
Vì số ô rất nhiều mình không thể ngồi chọn từng ô để cho vào công thức được. Ai biết chỉ giúp mình nhé! tks

Mình mới học về mảng từ anh NDU va Thầy Mỹ nên mình thử đại cái UDF này thấy cũng được vì mảng luôn cho tốc độ cao coi giúp gì được bạn không

Function Ghep(rng As Range) As String
Dim arr(), sarray, li As Long, lj As Long, lr As Long
sarray = rng
ReDim arr(1 To UBound(sarray) * UBound(sarray, 2), 1 To 1)
For lj = 1 To UBound(sarray, 2)
    For li = 1 To UBound(sarray, 1)
    lr = lr + 1
    arr(lr, 1) = sarray(li, lj)
    Next
Next
sarray = WorksheetFunction.Transpose(arr)
Ghep = Join(sarray, ", ")
End Function

 

[bebe08]

Cảm ơn bạn! Cách của bạn cũng hay nhưng mình đã áp dụng cách của bạn logica rồi.