Dùng Join với mảng ngang thế nào! (1 người xem)

Liên hệ QC

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

ThuNghi

Hãy cho rồi sẽ nhận!
Thành viên đã mất
Tham gia
16/8/06
Bài viết
3,808
Được thích
4,449
Dùng Join với mảng ngang thế nào!
Tôi có code như sau lấy MyStr từ 1 Rng gồm 1 cột.
PHP:
Dim Rng As Range, MyStr As String
Sub thu01()
Set Rng = Range("A1:A4")
MyStr = Join(WorksheetFunction.Transpose(Rng), "/")
MsgBox MyStr
End Sub
Bây giờ tôi muốn thay
thành
hay là
Thì làm thế nào. Và có được không.
Xin cám ơn.
 
Không biết như vầy có đúng ý Anh không?
Mã:
Dim Rng As Range, MyStr As String
Sub thu01()
Set Rng = Range("A1:D1")
With WorksheetFunction
MyStr = Join(.Transpose(.Transpose(Rng)), "/")
End With
MsgBox MyStr
End Sub
 
Upvote 0
Mình thấy không nhất thiết gò vào Range mà gán luôn vào mảng

Mã:
Sub thu01()
Dim Mg, MyStr As String
Mg = WorksheetFunction.Transpose(Sheet1.Range("A1:D1"))
MyStr = Join(WorksheetFunction.Transpose(Mg), "/")
MsgBox MyStr
End Sub
 
Upvote 0
Dùng Join với mảng ngang thế nào!
Tôi có code như sau lấy MyStr từ 1 Rng gồm 1 cột.
PHP:
Dim Rng As Range, MyStr As String
Sub thu01()
Set Rng = Range("A1:A4")
MyStr = Join(WorksheetFunction.Transpose(Rng), "/")
MsgBox MyStr
End Sub
Bây giờ tôi muốn thay

thành

hay là

Thì làm thế nào. Và có được không.
Xin cám ơn.
Chỉ cần chú ý điều này:
- Range chẳng bao giờ là mảng cả, cho dù đó là Range 1 cột nhiều dòng hay 1 dòng nhiều cột
- Muốn biến Range thành mảng chỉ có cách: Dùng vòng lập duyệt qua từng phần tử hoặc hàm TRANSPOSE (có thể TRANSPOSE 1 lần hoặc 2 lần để biến thành mảng 1 chiều)
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom