Dùng Join với mảng ngang thế nào!

[ThuNghi]

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.

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

Set Rng = Range("A1:A4")

thành

Set Rng = Range("A11")

hay là

Set Rng = Range("A13")

Thì làm thế nào. Và có được không.
Xin cám ơn.

 

[MinhCong]

Không biết như vầy có đúng ý Anh không?

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

 

[sealand]

Mình thấy không nhất thiết gò vào Range mà gán luôn vào mảng

Sub thu01()
Dim Mg, MyStr As String
Mg = WorksheetFunction.Transpose(Sheet1.Range("A1:D1"))
MyStr = Join(WorksheetFunction.Transpose(Mg), "/")
MsgBox MyStr
End Sub

 

[ndu96081631]

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.

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)