Có thể dùng hàm Join để nối chuối từ các cell lại không? (2 người xem)

ndu96081631 · 5/8/09

Trong bài viết này:
http://www.giaiphapexcel.com/forum/showthread.php?t=18360
Bạn Rollover79 có ý kiến cho rằng:

rollover79 đã viết:
Theo em thì bác nên nhập tất cả vào 1 ô, các ký tự ngăn cách nhau bởi 1 ký tự nào đó, rồi Split nó ra là ok thôi. Còn cái vụ ghép vào, nếu là mảng 1 chiều thì có thể dùng Join mà ko cần phải dùng vòng lặp For.

Vậy nếu như tôi có dử liệu:
A1 = A
A2 = B
A3 = C
A4 = D
Tôi đặt:
Set Rng = Range("A1:A4")
Đương nhiên Rng phải là mảng 1 chiều rồi
Vậy xin hỏi có thể dùng hàm Join để nối tất cả các phần tử của Rng lại với nhau để được kết quả A,B,C,D mà không cần bất cứ vòng lập nào không?
Tôi đã thử nhiều lần... đã tìm nhiều nơi... nhưng hầu hết người ta đều dùng vòng lập (mà nếu đã dùng vòng lập thì cần gì đến hàm Join nhỉ?)

ndu96081631 · 7/8/09

Ah... tôi biết cách làm rồi ---> Thông qua hàm TRANSPOSE

PHP:

Function JoinText(Vung As Range, Optional PC As String = ", ") As String
  On Error GoTo Tiep
  With Application.WorksheetFunction
    JoinText = Join(.Transpose(Vung), PC)
    Exit Function
Tiep:
    JoinText = Join(.Transpose(.Transpose(Vung)), PC)
  End With
End Function

UDF này cho phép nối các cell từ 1 dòng hoặc 1 cột mà không cần bất cứ vòng lập nào
Với dử liệu là 1 vùng gồm nhiều dòng nhiều cột, các bạn hãy phát triển tiếp bằng cách quét từ 1 đến tổng số dòng (hoặc từ 1 đến tổng số cột ---> Tùy theo số dòng ít hơn hay số cột ít hơn) ---> Như vậy tốc độ sẽ nhanh hơn gấp nhiều lần so với phương pháp quét qua từng cell
Trải nghiệm xem!

ST-Lu! · 3/1/10

ndu96081631 đã viết:
Ah... tôi biết cách làm rồi ---> Thông qua hàm TRANSPOSE

PHP:

Function JoinText(Vung As Range, Optional PC As String = ", ") As String On Error GoTo Tiep With Application.WorksheetFunction JoinText = Join(.Transpose(Vung), PC) Exit Function Tiep: JoinText = Join(.Transpose(.Transpose(Vung)), PC) End With End Function

UDF này cho phép nối các cell từ 1 dòng hoặc 1 cột mà không cần bất cứ vòng lập nào
Với dử liệu là 1 vùng gồm nhiều dòng nhiều cột, các bạn hãy phát triển tiếp bằng cách quét từ 1 đến tổng số dòng (hoặc từ 1 đến tổng số cột ---> Tùy theo số dòng ít hơn hay số cột ít hơn) ---> Như vậy tốc độ sẽ nhanh hơn gấp nhiều lần so với phương pháp quét qua từng cell
Trải nghiệm xem!

Thầy NDU ơi
Khi giữa các phần từ có khoảng trống, ví dụ
A1 = A
A2 = ""
A3 = B
A4 = ""
A5 = C

Hàm Jointext(A1:A5) hoặc jointext(A1:A5,",")sẽ bị double dấu phân cách
ví dụ: kết quả =A,,B,,C

Có cách nào khác phục không Thầy

ptm0412 · 4/1/10

Hàm Jointext(A1:A5) hoặc jointext(A1:A5,",")sẽ bị double dấu phân cách
ví dụ: kết quả =A,,B,,C

Dự trù mất đầu, mất đuôi, mất giữa, mất 1, mất 2, mất n:

PHP:

Function JoinText(Vung As Range, Optional PC As String = ", ") As String
  On Error GoTo Tiep
  With Application.WorksheetFunction
      JoinText = Join(.Transpose(Vung), PC)
    GoTo EndF
Tiep:
    JoinText = Join(.Transpose(.Transpose(Vung)), PC)
EndF:
    For i = Len(JoinText) - 2 To 2 Step -1
    JoinText = Replace(JoinText, .Rept(PC, i), PC)
    Next
  End With
    If Left(JoinText, Len(PC)) = PC Then JoinText = Right(JoinText, Len(JoinText) - Len(PC))
    If Right(JoinText, Len(PC)) = PC Then JoinText = Left(JoinText, Len(JoinText) - Len(PC))
End Function

ndu96081631 · 4/1/10

ST-Lu! đã viết:
Thầy NDU ơi
Khi giữa các phần từ có khoảng trống, ví dụ
A1 = A
A2 = ""
A3 = B
A4 = ""
A5 = C

Hàm Jointext(A1:A5) hoặc jointext(A1:A5,",")sẽ bị double dấu phân cách
ví dụ: kết quả =A,,B,,C

Có cách nào khác phục không Thầy

Câu hỏi này đã từng có trên diển đàn rồi
Cách làm như sau:
- Nối các chuổi với nhau bằng khoảng trắng
- Dùng TRIM loại các khoảng trắng thừa
- Đổi khoảng trắng thành PC
Vì phòng trường hợp chuổi trong 1 cell cũng có khoảng trắng nên thêm công đoạn này:
- Nối các chuổi với nhau bằng CHAR(13)
- Thay khoảng trắng bằng CHAR(10)
- Thay CHAR(13) bằng khoảng trắng
- Dùng TRIM cắt bỏ các khoảng trắng thừa
- Thay khoảng trắng thành PC
- Thay CHAR(10) thành khoảng trắng

PHP:

Function JoinText(Vung As Range, Optional PC As String = ", ") As String
  On Error GoTo Tiep1
  With Application.WorksheetFunction
    JoinText = Join(.Transpose(Vung), Chr(13))
    GoTo Tiep2
Tiep1:
    JoinText = Join(.Transpose(.Transpose(Vung)), Chr(13))
  End With
Tiep2:
  JoinText = Replace(JoinText, " ", Chr(10))
  JoinText = Replace(JoinText, Chr(13), " ")
  JoinText = WorksheetFunction.Trim(JoinText)
  JoinText = Replace(JoinText, " ", PC)
  JoinText = Replace(JoinText, Chr(10), " ")
End Function

Cuối cùng vẫn không xài For đâu!
Nhược điểm của cách làm này là: Trong chuổi của ta không chứa các ký tự đặc biệt (char(10) và char(13)...)... Điều này ta cũng có thể yên tâm vì việc xài các ký tự đặc biệt này là rất hiếm

sealand · 4/1/10

Đối với nhiều bạn đây là những code mẫu khá hay và độc đáo. Mong mọi người phát tiển thêm tạo 1 chuỗi duy nhất thì tốt quá.
(Thông cảm nhé, được voi đòi yên mà)

ptm0412 · 4/1/10

Ban đầu tôi cũng có ý tưởng replace bằng khoảng trắng sau đó dùng trim, nhưng nghĩ lại thấy có chút không ổn:
- Nếu dùng PC là dấu phẩy, tôi thích dùng thêm 1 ký tự khoảng trắng, PC trở thành 2 ký tự = ", ". Cái này giống như viết đúng chính tả vậy. (a, b, c, d thay vì a,b,c,d)
- Nhỡ người dùng lại muốn dùng khoảng trắng làm PC

Nên tôi vẫn dùng For. Sự thực số vòng lặp For không nhiều.

Po_Pikachu · 4/1/10

Vầy thì viết như vầy không phải sẽ ngăn hơn nhiều sau! hihhi
Lâu lắm rùi mới thấy mọi người sôi nổi như vầy đó.

Mã:

Function JoinText(Vung As Range, Optional PC As String = ", ") As String
  On Error GoTo Tiep
  With Application.WorksheetFunction
      JoinText = Join(.Transpose(Vung), " ")
    GoTo EndF
Tiep:
    JoinText = Join(.Transpose(.Transpose(Vung)), " ")
EndF:
    JoinText = Replace(.Trim(JoinText), " ", PC)
  End With
End Function

Thế có thể mở rộng ra nhiều vùng không liên tục bằng [ParamArray rng() As Variant] được không? Và nói trước là em không hiểu tại sao thằng ParamArray này chỉ thích đứng một mình trong code nhỉ?
http://www.giaiphapexcel.com/forum/showthread.php?t=16499
Thân.

ptm0412 · 4/1/10

Làm như PoPikachu thì mấy ô chứa chuỗi có sẵn khoảng trắng trong ô bị tách ra mấy phần, oan mạng. Đâu phải tự dưng mà ndu tốn công chạy qua 3 bước trung gian, và cũng đâu phải tự dưng lão chết tiệt phải chạy cái vòng for chết tiệt:

ndu đã viết:
Cách làm như sau:
- Nối các chuổi với nhau bằng khoảng trắng
- Dùng TRIM loại các khoảng trắng thừa
- Đổi khoảng trắng thành PC
Vì phòng trường hợp chuổi trong 1 cell cũng có khoảng trắng nên thêm công đoạn này:
.....

ndu96081631 · 4/1/10

ptm0412 đã viết:
Ban đầu tôi cũng có ý tưởng replace bằng khoảng trắng sau đó dùng trim, nhưng nghĩ lại thấy có chút không ổn:
- Nếu dùng PC là dấu phẩy, tôi thích dùng thêm 1 ký tự khoảng trắng, PC trở thành 2 ký tự = ", ". Cái này giống như viết đúng chính tả vậy. (a, b, c, d thay vì a,b,c,d)
- Nhỡ người dùng lại muốn dùng khoảng trắng làm PC

Nên tôi vẫn dùng For. Sự thực số vòng lặp For không nhiều.

Hình như sư phụ chưa thử code tại bài #5 của em thì phải ---> Tất cả đều giải quyết được tuốt
Em vẫn quyết không dùng For ---> Vấn đề là nghiên cứu thuật toán để biến cái không thể thành có thể
--------------------

Po_Pikachu đã viết:
Vầy thì viết như vầy không phải sẽ ngăn hơn nhiều sau! hihhi
Lâu lắm rùi mới thấy mọi người sôi nổi như vầy đó.

Mã:

Function JoinText(Vung As Range, Optional PC As String = ", ") As String On Error GoTo Tiep With Application.WorksheetFunction JoinText = Join(.Transpose(Vung), " ") GoTo EndF Tiep: JoinText = Join(.Transpose(.Transpose(Vung)), " ") EndF: JoinText = Replace(.Trim(JoinText), " ", PC) End With End Function

.

Code này không được rồi đồng chí ơi ---> thử gõ vào cell A1 chữ N D U (có khoảng trắng) xem thế nào nhé!

ptm0412 · 4/1/10

Hình như sư phụ chưa thử code tại bài #5 của em thì phải ---> Tất cả đều giải quyết được tuốt

Có thử, nhưng quên xem cái câu đầu: Optional PC As String = ", "

Post xong biết sai nhưng không sửa, vì có người đọc rồi, nếu sửa thì là dấu dốt, dấu không kịp còn nguy hơn.

Em vẫn quyết không dùng For ---> Vấn đề là nghiên cứu thuật toán để biến cái không thể thành có thể

Chạy qua 3 cái trung gian, cũng là 1 thuật toán hay mà. Anh dùng mấy cái mánh này hoài.

Đang nghĩ đến cái này, thay vì for next như trên, làm như sau:

PHP:

Function JoinText(Vung As Range, Optional PC As String = ", ") As String
  On Error GoTo Tiep
  With Application.WorksheetFunction
      JoinText = Join(.Transpose(Vung), PC)
    GoTo EndF
Tiep:
    JoinText = Join(.Transpose(.Transpose(Vung)), PC)
EndF:

    JoinText = Replace(JoinText, .Rept(PC, 2), PC)
    JoinText = Replace(JoinText, .Rept(PC, 2), PC)
  End With
    If Left(JoinText, Len(PC)) = PC Then JoinText = Right(JoinText, Len(JoinText) - Len(PC))
    If Right(JoinText, Len(PC)) = PC Then JoinText = Left(JoinText, Len(JoinText) - Len(PC))
End Function

Cái hay của nó là câu JoinText = Replace(JoinText, .Rept(PC, 2), PC) chạy 2 lần:

1. Chạy lần thứ nhất, có 2 trường hợp:

a. Những sự lập lại chẵn PC kế nhau, sẽ đi hết, thay bằng 1 PC duy nhất
b. Những sự lập lại lẻ PC, sẽ đi hết phần chẵn, thay bằng 1 PC, cộng với 1 PC lẻ là 2 PC

2. Chạy lần thứ 2:
Thay tất cả những cái 2 PC còn lại trong trường hợp b của lần 1 bằng 1 PC duy nhất.

Cái này là suy luận logic, không cần xài mánh.

ndu96081631 · 4/1/10

ptm0412 đã viết:
Đang nghĩ đến cái này, thay vì for next như trên, làm như sau:

PHP:

Function JoinText(Vung As Range, Optional PC As String = ", ") As String On Error GoTo Tiep With Application.WorksheetFunction JoinText = Join(.Transpose(Vung), PC) GoTo EndF Tiep: JoinText = Join(.Transpose(.Transpose(Vung)), PC) EndF: JoinText = Replace(JoinText, .Rept(PC, 2), PC) JoinText = Replace(JoinText, .Rept(PC, 2), PC) End With If Left(JoinText, Len(PC)) = PC Then JoinText = Right(JoinText, Len(JoinText) - Len(PC)) If Right(JoinText, Len(PC)) = PC Then JoinText = Left(JoinText, Len(JoinText) - Len(PC)) End Function

Cái hay của nó là câu JoinText = Replace(JoinText, .Rept(PC, 2), PC) chạy 2 lần:

1. Chạy lần thứ nhất, có 2 trường hợp:
a. Những sự lập lại chẵn PC kế nhau, sẽ đi hết, thay bằng 1 PC duy nhất
b. Những sự lập lại lẻ PC, sẽ đi hết phần chẵn, thay bằng 1 PC, cộng với 1 PC lẻ là 2 PC
2. Chạy lần thứ 2:
Thay tất cả những cái 2 PC còn lại trong trường hợp b trong lần 1 bằng 1 PC duy nhất.
Cái này là suy luận logic, không cần xài mánh.

Đã thử code của sư phụ ---> Thành công rồi!
Lâu lắm mới được "tranh" và "luận" với sư phụ trong cùng 1 topic
Sảng khoái ghê!
Quan trọng là học thêm được 1 mớ "mánh" của sư phụ (lâu lâu tung ra 1 lần)
Ẹc... Ẹc... Đầu năm đầu tháng, em xì pam chút nha!

Po_Pikachu · 4/1/10

Nói về thuật toán thì em cũng không chịu thua dễ vậy đâu. hihihi

PHP:

Function JoinText(Vung As Range, Optional PC As String = ", ") As String
  On Error GoTo Tiep
  With Application.WorksheetFunction
      JoinText = Join(.Transpose(Vung), PC)
    GoTo EndF
Tiep:
    JoinText = Join(.Transpose(.Transpose(Vung)), PC)
EndF:
    JoinText = .Trim(Replace(Replace(.Trim(Replace(.Trim(Replace(JoinText, .Rept(PC, 2), PC)), " " & PC, PC)) _
    , .Rept(PC, 2), PC), .Rept(Left(PC, 1), 2), PC))
  End With
End Function

Bác xem file nè!
Thân.

ptm0412 · 4/1/10

Po xem lại nha:
- Nếu trong chuỗi có dấu phẩy, thì PC nên chọn ký tự khác, thí dụ "; " hoặc "/ "
- Code JoinTextNDU là của Ptm (lộn tiệm)
- Nếu bỏ trống ô đầu hoặc ô cuối thì code của Po vẫn còn PC đầu hoặc cuối
- Nếu trống trên 6 ô liên tiếp (7 PC liên tiếp trở lên) thì xóa không hết

Code của anh (ptm) cũng chỉ đúng với 4 PC liên tiếp trở xuống.

Nếu chạy câu JoinTextp = Replace(JoinTextp, .Rept(PC, 2), PC) 3 lần, đúng với 8 PC

Chạy 4 lần, đúng với 16 PC liên tiếp, (theo cấp số nhân, công bội là 2).

Cái tưởng là suy luận logic thì lại sai. Sai ở chỗ này:

1. Chạy lần thứ nhất, có 2 trường hợp:
a. Những sự lập lại chẵn PC kế nhau, sẽ đi hết, thay bằng 1 PC duy nhất

Đúng ra là: Những sự lập lại chẵn PC (ký hiệu là 2n PC), bị thay thế bởi n PC

b. Những sự lập lại lẻ PC, sẽ đi hết phần chẵn, thay bằng 1 PC, cộng với 1 PC lẻ là 2 PC

Đúng ra là: Những sự lập lại lẻ PC (ký hiệu là 2n + 1 PC), phần chẵn bị thay thế bởi n PC, cộng với 1 PC lẻ thành n + 1 PC

Đau quá! Chả lẽ chạy 4 lần, rồi 5 lần, 6 lần? Dù rằng 5 lần thì được 32 PC, 6 lần thì được 64 PC, nhưng không gọi là tổng quát.

Túm lại là xài mánh như Ndu hiệu quả hơn, nếu không dùng for.

Po_Pikachu · 5/1/10

ndu96081631 đã viết:
Câu hỏi này đã từng có trên diển đàn rồi
Cách làm như sau:
- Nối các chuổi với nhau bằng khoảng trắng
- Dùng TRIM loại các khoảng trắng thừa
- Đổi khoảng trắng thành PC
Vì phòng trường hợp chuổi trong 1 cell cũng có khoảng trắng nên thêm công đoạn này:
- Nối các chuổi với nhau bằng CHAR(13)
- Thay khoảng trắng bằng CHAR(10)
- Thay CHAR(13) bằng khoảng trắng
- Dùng TRIM cắt bỏ các khoảng trắng thừa
- Thay khoảng trắng thành PC
- Thay CHAR(10) thành khoảng trắng

PHP:

Function JoinText(Vung As Range, Optional PC As String = ", ") As String On Error GoTo Tiep1 With Application.WorksheetFunction JoinText = Join(.Transpose(Vung), Chr(13)) GoTo Tiep2 Tiep1: JoinText = Join(.Transpose(.Transpose(Vung)), Chr(13)) End With Tiep2: JoinText = Replace(JoinText, " ", Chr(10)) JoinText = Replace(JoinText, Chr(13), " ") JoinText = WorksheetFunction.Trim(JoinText) JoinText = Replace(JoinText, " ", PC) JoinText = Replace(JoinText, Chr(10), " ") End Function

Cuối cùng vẫn không xài For đâu!
Nhược điểm của cách làm này là: Trong chuổi của ta không chứa các ký tự đặc biệt (char(10) và char(13)...)... Điều này ta cũng có thể yên tâm vì việc xài các ký tự đặc biệt này là rất hiếm

Đúng là thú vị thật!
Nhưng em vẫn chưa tìm được cách đưa 2 dòng này vào luôn trong Replace() được nên đành để nó vậy thôi.

PHP:

    If Left(JoinText, Len(PC)) = PC Then JoinText = Right(JoinText, Len(JoinText) - Len(PC))
    If Right(JoinText, Len(.Trim(PC))) = .Trim(PC) Then JoinText = Left(JoinText, Len(JoinText) - Len(.Trim(PC)))

Còn việc nó lặp lại 2n+1 hay 2n thì em đã có cách khống chế nó rồi!
Các bác xem thử nha!

PHP:

Function JoinText(Vung As Range, Optional PC As String = ", ") As String
  On Error GoTo Tiep
  With Application.WorksheetFunction
      JoinText = Join(.Transpose(Vung), PC)
    GoTo EndF
Tiep:
    JoinText = Join(.Transpose(.Transpose(Vung)), PC)
EndF:
    JoinText = .Trim(Replace(Replace(Replace(Replace(.Trim(Replace(JoinText, .Rept(PC, 2), PC)), " " & PC, PC) _
    , .Rept(Left(PC, 1), 2), ""), PC & .Trim(PC), ""), Chr(10), ""))
    If Left(JoinText, Len(PC)) = PC Then JoinText = .Trim(Right(JoinText, Len(JoinText) - Len(PC)))
    If Right(JoinText, Len(.Trim(PC))) = .Trim(PC) Then JoinText = .Trim(Left(JoinText, Len(JoinText) - Len(.Trim(PC))))
  End With
End Function

Thân.

ndu96081631 · 5/1/10

Po_Pikachu đã viết:

Đúng là thú vị thật!
Nhưng em vẫn chưa tìm được cách đưa 2 dòng này vào luôn trong Replace() được nên đành để nó vậy thôi.

PHP:

    If Left(JoinText, Len(PC)) = PC Then JoinText = Right(JoinText, Len(JoinText) - Len(PC))
    If Right(JoinText, Len(.Trim(PC))) = .Trim(PC) Then JoinText = Left(JoinText, Len(JoinText) - Len(.Trim(PC)))

Còn việc nó lặp lại 2n+1 hay 2n thì em đã có cách khống chế nó rồi!
Các bác xem thử nha!

PHP:

Function JoinText(Vung As Range, Optional PC As String = ", ") As String
  On Error GoTo Tiep
  With Application.WorksheetFunction
      JoinText = Join(.Transpose(Vung), PC)
    GoTo EndF
Tiep:
    JoinText = Join(.Transpose(.Transpose(Vung)), PC)
EndF:
    JoinText = .Trim(Replace(Replace(Replace(Replace(.Trim(Replace(JoinText, .Rept(PC, 2), PC)), " " & PC, PC) _
    , .Rept(Left(PC, 1), 2), ""), PC & .Trim(PC), ""), Chr(10), ""))
    If Left(JoinText, Len(PC)) = PC Then JoinText = .Trim(Right(JoinText, Len(JoinText) - Len(PC)))
    If Right(JoinText, Len(.Trim(PC))) = .Trim(PC) Then JoinText = .Trim(Left(JoinText, Len(JoinText) - Len(.Trim(PC))))
  End With
End Function

Thân.

Chưa được đâu!
Giả sử tại cell A1 có chuổi n,,,d,,,u thì công thức của bạn nó xóa mấy dấu phẩy "gốc" của người ta à?
Lưu ý: Cái nào là của người dùng nhập phải giữ nguyên nhé!
----------------------
Bài toán thay thế này đã từng được bạn rollover79 đăng tại đây:
http://www.giaiphapexcel.com/forum/showthread.php?t=20552
Tham khảo nhé!

Po_Pikachu · 5/1/10

Nhưng nếu trong cell có n,,,d,,,u thì phải dùng ký tự khác chứ? Sao lại dùng ", " nữa?
Nếu dùng ", " nữa thì chẳng phải trong ô này đang viết sai đó sao? Vậy là em đã chỉnh giùm họ rồi đó! hihihi
Và nếu là giữ nguyên từng ô thì chẳng phải For sẽ đơn giản hơn rất nhiều và giữ nguyên mọi thứ như cũ sau. hihihi
Thân.

ndu96081631 · 5/1/10

Po_Pikachu đã viết:
Nhưng nếu trong cell có n,,,d,,,u thì phải dùng ký tự khác chứ? Sao lại dùng ", " nữa?
Nếu dùng ", " nữa thì chẳng phải trong ô này đang viết sai đó sao? Vậy là em đã chỉnh giùm họ rồi đó! hihihi
Và nếu là giữ nguyên từng ô thì chẳng phải For sẽ đơn giản hơn rất nhiều và giữ nguyên mọi thứ như cũ sau. hihihi
Thân.

Đó là chuyện của người dùng, còn nhiệm vụ chúng ta sau khi nối chuổi là phải "bảo toàn lực lượng", giữ lại tất cả những gì mà người dùng đã gõ và không được chỉnh sửa gì cả
Cách làm của tôi là dùng ký tự đặc biêt để nối chuổi, nó có 1 nhược điểm khá nguy hiểm là lở như trong chuổi người ta cũng dùng ký tự đặc biệt trùng với ký tự mà mình đã dùng trong code thì coi như... tèo
Để cải tiến, ta tìm 1 ký tự đặc biệt nào đó sao cho nó cực kỳ đặc biệt, đến nổi người dùng không thể nhập từ bàn phím vào cell những ký tự kiểu như vậy!
Tôi chọn 2 ký tự này đây: vbNullChar và vbBack
Có vẽ an toàn đây!
Code cuối cùng sẽ là:

PHP:

Function JoinText(Range As Range, Optional Sep As String = ", ") As String
  On Error GoTo Cont1
  With Application.WorksheetFunction
    JoinText = Join(.Transpose(Range), vbNullChar)
    GoTo Cont2
Cont1:
    JoinText = Join(.Transpose(.Transpose(Range)), vbNullChar)
Cont2:
    JoinText = Replace(Replace(JoinText, " ", vbBack), vbNullChar, " ")
    JoinText = .Trim(JoinText)
    JoinText = Replace(Replace(JoinText, " ", Sep), vbBack, " ")
  End With
End Function

Mời các bạn test thử

ptm0412 · 6/1/10

Biết rằng thuật toán đi qua trung gian của ndu là đã quá tuyệt, nhưng với cái đầu cố chấp của lão chết tiệt, thử cải tiến giới hạn số vòng lặp bằng vòng lặp Do Loop thay vì For Next.

Nếu 1 ô trống, sẽ chạy 1 vòng lặp
Nếu dưới 4 ô trống liên tiếp, sẽ chạy 2 vòng lặp
Nếu dưới 8 ô trống liên tiếp, sẽ chạy 3 vòng lặp
Nếu dưới 16 ô trống liên tiếp, (hơi hiếm), sẽ chạy 4 vòng lặp
Nếu dưới 32 ô trống liên tiếp, (khá hiếm), sẽ chạy 5 vòng lặp
Nếu dưới 63 ô tức là 64 PC (rất hiếm), sẽ chạy 6 vòng lặp.

Nếu rời rạc nhiều vùng trống thì chỉ tính cho vùng trống lớn nhất.
Nếu không có ô trống nào, thì không chạy.

So với code của ndu (replace 4 lần) thì sẽ có lúc chạy ít lần hơn và có lúc chạy nhiều lần hơn.

Khuyến cáo duy nhất cho người dùng là nếu tồn tại các ký tự dấu phẩy, dấu gạch ngang, ... thì nên dùng dấu phân cách khác.

PHP:

Function JoinText(Vung As Range, Optional PC As String = ", ") As String
  On Error GoTo Tiep
  With Application.WorksheetFunction
      JoinText = Join(.Transpose(Vung), PC)
    GoTo EndF
Tiep:
    JoinText = Join(.Transpose(.Transpose(Vung)), PC)
EndF:
    Do While InStr(1, JoinText, .Rept(PC, 2)) > 0
        JoinText = Replace(JoinText, .Rept(PC, 2), PC)
    Loop
  End With
    If Left(JoinText, Len(PC)) = PC Then JoinText = Right(JoinText, Len(JoinText) - Len(PC))
    If Right(JoinText, Len(PC)) = PC Then JoinText = Left(JoinText, Len(JoinText) - Len(PC))
End Function

duchuy3537 · 2/6/12

Bạn ơi, mình đã áp dụng hàm Join nêu trên cho việc của mình, tuy nhiên vấn đề của mình là cần nôi các ô lại thỏa 02 điều kiện, cụ thể theo file mình đính kèm. Giúp mình với nhé, Thanks

Có thể dùng hàm Join để nối chuối từ các cell lại không? (2 người xem)

Người dùng đang xem chủ đề này

Huyền thoại GPE

Huyền thoại GPE

Love Wingchun

Bad Excel Member

Huyền thoại GPE

Thành viên gạo cội

Bad Excel Member

Po_pikachu@ymail.com

Bad Excel Member

Huyền thoại GPE

File đính kèm

Bad Excel Member

Huyền thoại GPE

Po_pikachu@ymail.com

File đính kèm

Bad Excel Member

Po_pikachu@ymail.com

File đính kèm

Huyền thoại GPE

Po_pikachu@ymail.com

Huyền thoại GPE

File đính kèm

Bad Excel Member

Thành viên mới

File đính kèm

Đếm ngược thời gian