- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Tôi có đoạn code thế này:
Code chạy không có vấn đề... nhưng nếu tôi sửa lại thành:
thì báo lổi Subscript out of range
Ý tôi muốn thêm các phần tử vào 1 mãng dọc ---> Tại sao nó lại không làm việc được nhỉ, trong khi với mãng ngang nó làm việc bình thường
PHP:
Option Base 1
Sub Test()
Dim Arr(), ith As Long
For ith = 1 To 5
ReDim Preserve Arr(1, ith)
Arr(1, ith) = Cells(ith, 1)
Next ith
Range("C1:G1").Value = Arr
End Sub
PHP:
Option Base 1
Sub Test()
Dim Arr(), ith As Long
For ith = 1 To 5
ReDim Preserve Arr(ith, 1)
Arr(ith, 1) = Cells(ith, 1)
Next ith
Range("C1:C5").Value = Arr
End Sub
Ý tôi muốn thêm các phần tử vào 1 mãng dọc ---> Tại sao nó lại không làm việc được nhỉ, trong khi với mãng ngang nó làm việc bình thường