Muốn ghi mảng ra bảng tính

[FPT_online]

Trong file đính kèm em viết sẵn đoạn code, nhưng em em chưa biết ghi mảng rng ra bảng tính. Mong mọi người giúp em

Sub test()
Dim cell As Range
Dim rng As New Collection
On Error Resume Next
For Each cell In Sheet1.Range("A3:A18")
    rng.Add cell.Value, cell.Value
Next
On Error GoTo 0
End Sub

 

[dhn46]

Bạn dùng như thế này

Sub .....
'............ Code xủa bạn

'-> Gan Collection xuong sheet
Dim i As Long
For i = 0 To rng.Count
    Range("E" & i + 1) = rng.Item(i)
Next

End sub

 

[befaint]

@Chủ thớt.
Cái bạn đang đề cập không phải array, mà là một object - Collection.

Hôm trước đọc tới bài 11 rồi, thì lần này đọc bài 13. Trong đó có sẵn hàm CollectionToArray rồi đó.

 

[FPT_online]

@Chủ thớt.
Cái bạn đang đề cập không phải array, mà là một object - Collection.

Hôm trước đọc tới bài 11 rồi, thì lần này đọc bài 13. Trong đó có sẵn hàm CollectionToArray rồi đó.

Vâng, em đọc tiếp có gì không hiểu em lại hỏi. Mong mọi người giúp đỡ

Bài đã được tự động gộp: 31/8/18

Bạn dùng như thế này

Sub .....
'............ Code xủa bạn

'-> Gan Collection xuong sheet
Dim i As Long
For i = 0 To rng.Count
    Range("E" & i + 1) = rng.Item(i)
Next

End sub

Em cám ơn đã chỉ giúp em

 

[VetMini]

Mới tập viết code thì tạm quên cái lệnh "On Error..." đi.
Nó là con dao hai lưỡi. Đối với người không rành mổ gà thì dao hai lưỡi gây đứt tay nhiều hơn đứt cổ gà.