Mong Anh/chị viết giúp sub nối kí tự trong cột thành 1 chuỗi không có dấu ngăn cách

[tranhoainam9701]

Kính gửi các Anh/chị trong diễn đàn GPE!
Mong Anh/chị viết giúp sub vba nối các kí tự trong các cột riêng lẻ thành một chuỗi nằm trong một ô không có dấu ngăn cách và giữ nguyên vị trí theo các cột từ trái qua phải. Nội dung mong muốn được ghi rõ trong file.
Trân trọng/

 

[hungpecc1]

Kính gửi các Anh/chị trong diễn đàn GPE!
Mong Anh/chị viết giúp sub vba nối các kí tự trong các cột riêng lẻ thành một chuỗi nằm trong một ô không có dấu ngăn cách và giữ nguyên vị trí theo các cột từ trái qua phải. Nội dung mong muốn được ghi rõ trong file.
Trân trọng/

Dùng hàm Text Join:
=TEXTJOIN("-",,D7F7)

 

[Hoàng Tuấn 868]

Nối các ký tự.

Thử. . . . . .............

 

[HUONGHCKT]

Kính gửi các Anh/chị trong diễn đàn GPE!
Mong Anh/chị viết giúp sub vba nối các kí tự trong các cột riêng lẻ thành một chuỗi nằm trong một ô không có dấu ngăn cách và giữ nguyên vị trí theo các cột từ trái qua phải. Nội dung mong muốn được ghi rõ trong file.
Trân trọng/

Thử xem

Option Explicit

Sub Noi()
Dim i&, Col&, J As String
Dim Sh As Worksheet
Set Sh = Sheet1
Col = Sh.Cells(7, 4).End(xlToRight).Column
For i = 4 To Col
    J = J & CStr(Sh.Cells(7, i))
Next i
Sh.Cells(7, 3) = J
End Sub

 

[VetMini]

Dùng hàm Transpose (2 lần) để đọc ra thành mảng 1 chiều. Dùng hàm Join nối lại. Hết.

 

[BuiQuangThuan]

Dùng hàm Transpose (2 lần) để đọc ra thành mảng 1 chiều. Dùng hàm Join nối lại. Hết.

Nếu chỉ có 1 dòng. Cháu sẽ điền vào 1 ô =D9F9. Sau đó nhấn F9. Copy mảng gồm 107 số, Dùng chức năng Replace thay dấu , bằng trống. Như vậy đỡ phải code

 

[VetMini]

Nếu chỉ có 1 dòng. Cháu sẽ điền vào 1 ô =D9F9. Sau đó nhấn F9. Copy mảng gồm 107 số, Dùng chức năng Replace thay dấu , bằng trống. Như vậy đỡ phải code

"Nếu" ấy chỉ áp dụng cho diễn đàn khác.
Trên GPE, người hỏi là khách hàng, khách hàng là thượng đế. Hiền thì nhỏng nhẻo vòi. Dữ thì ra lệnh. Kiểu nào cũng được chìu tuốt.
Vì vậy, nếu người ta đã hỏi kích chuột một phát là sẽ không chấp nhận kích hai phát.

 

[VetMini]

Đại khái vầy nè:



Tuy nhiên, transpose có giới hạn của nó.
Nếu không chịu được cái giới hạn đó thì bắt buộc phải dùng cách nối từng ô.

 

[tranhoainam9701]

Dùng hàm Text Join:
=TEXTJOIN("-",,D7F7)

Cám ơn anh nhưng e muốn dùng vba ạ!.

 

[VetMini]

.... Như vậy đỡ phải code

Bây giờ thì thấy bài #7 là chân lý chưa?
Đã thượng đế muốn code rồi thì cói trời mà khuyên. Ủa mà trời cũng là thượng đế.

Thượng đế còn không thèm xin code ở góc "lập trình", nhào vào đây hỏi. Trước đó từng chen ngang thớt khác và lấy cớ "người mới vào, không biết cách hỏi bài".