Nối nhiều chuỗi trong excel (1 người xem)

[pengin]

Mọi người giúp mình với có cách nào nối nhiều chuỗi trong trong Excel mà không phải dùng hàm CONCATENATE hay dùng & không. Ví dụ mình có chuỗi nằm ở A1:A20 làm thế nào nối tất cả chuổi đó vào 1 ô không. Cám ơn mọi người ^^

 

[thangteotdtt]

XEM TẠI ĐÂY là chỗ mô vậy đồng chí?

Gữi nhằm Link các bạn thông cảm
Đúng là cái này

 

[chuot0106]

Mọi người giúp mình với có cách nào nối nhiều chuỗi trong trong Excel mà không phải dùng hàm CONCATENATE hay dùng & không. Ví dụ mình có chuỗi nằm ở A1:A20 làm thế nào nối tất cả chuổi đó vào 1 ô không. Cám ơn mọi người ^^

Muốn có người giúp thì gửi File giả lập nên và nhập thủ công kết quả mong muốn vào.

 

[hungpecc1]

Mọi người giúp mình với có cách nào nối nhiều chuỗi trong trong Excel mà không phải dùng hàm CONCATENATE hay dùng & không. Ví dụ mình có chuỗi nằm ở A1:A20 làm thế nào nối tất cả chuổi đó vào 1 ô không. Cám ơn mọi người ^^

chắc là vậy : A1&A2&A3&A4&A5&A6....&A20

 

[chuot0106]

chắc là vậy : A1&A2&A3&A4&A5&A6....&A20

Bạn chưa đọc kĩ yêu cầu của tác giả rồi. Tác giả bảo không dùng dấu & mà.

 

[hungpecc1]

Bạn chưa đọc kĩ yêu cầu của tác giả rồi. Tác giả bảo không dùng dấu & mà.

oh , xin lỗi quên không đọc kỹ đề bài, lại mắc tật cũ 'nhanh ẩu đoảng "

 

[pengin]

Muốn có người giúp thì gửi File giả lập nên và nhập thủ công kết quả mong muốn vào.

File đây. A giúp e với nhé. Có cách nào không dùng VBA không anh. Em cám ơn anh

 

[ndu96081631]

File đây. A giúp e với nhé. Có cách nào không dùng VBA không anh. Em cám ơn anh

Nếu không dùng VBA thì mọi người sẽ làm... giống bạn đang làm, nghĩa là phải & & &... từ đầu đến cuối
Vậy thôi

 

[concogia]

File đây. A giúp e với nhé. Có cách nào không dùng VBA không anh. Em cám ơn anh

Nếu không dùng VBA thì cũng có cách làm thủ công ( mình thấy anh Ba Tê đã làm rồi) nhưng....mắc công lắm. Híc
Nhưng bảo đảm nhanh hơn cái em & & &.....
Thân

 

[chuot0106]

File đây. A giúp e với nhé. Có cách nào không dùng VBA không anh. Em cám ơn anh

Xem đã được chưa nhé!

 

[Quang_Hải]

File đây. A giúp e với nhé. Có cách nào không dùng VBA không anh. Em cám ơn anh

Đây nè, không dùng VBA, không dùng & luôn. Cách này mới ghê chứ

 

[chuot0106]

File đây. A giúp e với nhé. Có cách nào không dùng VBA không anh. Em cám ơn anh

Nếu muốn chủ động trong việc chọn vùng thì dùng File này. Nhớ enable macros trước khi mở File nhé!

 

[chuot0106]

Đây nè, không dùng VBA, không dùng & luôn. Cách này mới ghê chứ

Vẫn có "&" đó anh!!!!!!!!!!!!!!!

=B10&A11

 

[Quang_Hải]

Vẫn có "&" đó anh!!!!!!!!!!!!!!!

Có & nhưng mà & cao cấp, & này kéo kéo kéo thôi nha

 

[ndu96081631]

Nếu muốn chủ động trong việc chọn vùng thì dùng File này. Nhớ enable macros trước khi mở File nhé!

Code của bạn:

Public Sub Join()
  Dim i As Long, rng As Range, data(), kq As String
  Set rng = Application.InputBox("Chon vung can noi", "Chon vung:", Type:=8)
  data = rng
  For i = 1 To UBound(data)
    kq = kq & data(i, 1)
  Next i
  Sheet1.Range("C4").Value = kq
End Sub

Nếu dùng code trên mà... "ngon ăn" thì tôi thà:

Public Sub Test()
  Dim rng As Range
  Set rng = Application.InputBox("Chon vung can noi", "Chon vung:", Type:=8)
  Sheet1.Range("C4").Value = Join(WorksheetFunction.Transpose(rng), "")
End Sub

và hàng đống cách nữa độc đáo không kém. Ẹc.... Ẹc...
-----------------
Lưu ý: tránh đặt tên Sub trùng với tên hàm có sẵn nhé (Trường hợp của bạn sẽ không dùng được hàm Join)

 

[chuot0106]

Code của bạn:

Public Sub Join()
  Dim i As Long, rng As Range, data(), kq As String
  Set rng = Application.InputBox("Chon vung can noi", "Chon vung:", Type:=8)
  data = rng
  For i = 1 To UBound(data)
    kq = kq & data(i, 1)
  Next i
  Sheet1.Range("C4").Value = kq
End Sub

Nếu dùng code trên mà... "ngon ăn" thì tôi thà:

Public Sub Test()
  Dim rng As Range
  Set rng = Application.InputBox("Chon vung can noi", "Chon vung:", Type:=8)
  Sheet1.Range("C4").Value = Join(WorksheetFunction.Transpose(rng), "")
End Sub

và hàng đống cách nữa độc đáo không kém. Ẹc.... Ẹc...
-----------------
Lưu ý: tránh đặt tên Sub trùng với tên hàm có sẵn nhé (Trường hợp của bạn sẽ không dùng được hàm Join)

Việc giúp đỡ các thành viên giống như việc quyên góp làm từ thiện đó thầy. Ai có nhiều góp nhiều, ai có ít góp ít. Miễn sao giúp ích được cho người khác.

 

[ndu96081631]

Việc giúp đỡ các thành viên giống như việc quyên góp làm từ thiện đó thầy. Ai có nhiều góp nhiều, ai có ít góp ít. Miễn sao giúp ích được cho người khác.

Thì tôi đâu có nói của bạn là "nhiều" hay "ít". Chỉ là thêm một giải pháp tương tự thôi

 

[VMH0307]

nếu thích dùng công thức thì có thể sử dụng phương pháp "trá hình" dùng công thức + macro4 trong name theo link sau
http://www.giaiphapexcel.com/forum/showthread.php?73155-N%E1%BB%91i-c%C3%A1c-ph%E1%BA%A7n-t%E1%BB%AD-trong-m%E1%BA%A3ng-%E1%BA%A3o&p=471662#post471662

 

[lemanhtuong]

Mình có 1 cách không cần dùng đến các hàm mà bạn nói ở trên (áp dụng cho các cell trên cùng 1 cột), bạn làm như sau nhé:
1. Bạn copy tất cả các cell trong cột cần gộp
2. Mở notepad lên và paste dữ liệu vào đó (để mở notepad vào Run -> notepad -> Enter)
3. Chọn tất cả dữ liệu vừa copy vào notepad (Ctrl+A) và paste sang Word
4. Chọn tất cả dữ liệu đã được copy sang Word và bật chức năng Replace (Ctrl+A -> Ctrl+H)
5. Tại mục Find what gõ ^p và mục Replace with gõ vào ký tự mà bạn muốn chọn làm ký tự ngăn cách dữ liệu giữa các cell (ví dụ dấu chấm, phảy...). Sau đó bấm Replace all.
6. Lấy kết quả sau khi thực hiện replace và copy sang cell mà bạn cần gộp