Không thể chọn phần tử trong mảng

yeskincM

Yêu THVBA
Mọi người ơi em có đoạn code như sau đây ( em gắn range A1:A4 vào mảng array1, sau đó lấy giá trị phần từ aray1(2) ) nhưng lúc chạy nó báo subscript out of range.

Sub ssss()
Dim array1() As Variant
array1 = Range("A1:A4")
Cells(2, 1) = array1(2)
End Sub

Mọi người giúp em với ạ. Tks mn
 
D

Deleted member 1392

Guest
Đọc bài để biết nguyên nhân.
Sửa code lại thành như này sẽ hết lỗi.
Mã:
Sub ssss()
Dim array1() As Variant
array1 = Range("A1:A4")
array1 = WorksheetFunction.Transpose(array1)
Cells(2, 1) = array1(2)
End Sub
 
Top