Làm thế nào convert ... sang array!

[ThuNghi]

Tôi có 1 range MyRng: A1:A100 như sau:
A1= "x"
A2= "y"
A3...
...
A100="dfghsdfg sdgh"
Làm thế nào để chuyển range trên thành
MyArr=Array("x","y",...,"dfghsdfg sdgh")
Và chắc chắn là
IsArray(MyArr) =True.
Xin cám ơn!

 

[ThuNghi]

Ý của bạn có phải như thế này không:

Sub getStrArr()
Dim r As Range, c As Range, s As String
Set r = Selection
If r.Cells.Count = 1 Then Exit Sub
For Each c In r
    s = s & Chr(34) & c & Chr(34) & ","
Next
Debug.Print "Array(" & Left(s, Len(s) - [COLOR=red]1[/COLOR]) & ")"
End Sub

Chọn vùng chứa các chuỗi cần tạo mảng. Chạy macro, nhấn Ctrl-G mở cửa số Immediate, copy chuỗi vào VBE thế là xong.
Không biết có đúng ý không?
Thân!

Rất cám ơn bạn, đúng cái mình cần.

-------------------------------------------------
Gửi anh Thu Nghi: http://www.giaiphapexcel.com/forum/showthread.php?p=129017#post129017