Xóa 1 phần tử trong mảng lấy từ Range

[Miccpro]

Em muốn xóa 1 phần tử trong mảng nhưng code em bị lỗi, mong các anh chị giúp đỡ

Sub RemoveItem(index As Long)
Dim i As Long
Dim MyArr
MyArr = Sheet1.Range("A8:A" & Sheet1.Range("A65536").End(xlUp).Row).Value
    For i = index + 1 To UBound(MyArr)
      MyArr(i - 1) = MyArr(i)
    Next
ReDim Preserve MyArr(Len(MyArr) - 1)
End Sub

 

[befaint]

mảng

Mình đọc kỹ lý thuyết đã, rồi tính sau.

Bài 10. Array

Bài 10. Array (Danh sách các bài viết về VBA xem ở đây Index - Các bài viết về VBA) 0. Khái quát chung Mảng (array) là một tập hợp của nhiều phần tử được gọi thông qua một tên. Ví dụ: Arr Ta xác định phần tử trong mảng thông qua địa chỉ của phần tử đó trong mảng. Ví dụ: Arr(2): Tức là gọi tới...

www.giaiphapexcel.com

 

[Miccpro]

Mình đọc kỹ lý thuyết đã, rồi tính sau.

Bài 10. Array

Bài 10. Array (Danh sách các bài viết về VBA xem ở đây Index - Các bài viết về VBA) 0. Khái quát chung Mảng (array) là một tập hợp của nhiều phần tử được gọi thông qua một tên. Ví dụ: Arr Ta xác định phần tử trong mảng thông qua địa chỉ của phần tử đó trong mảng. Ví dụ: Arr(2): Tức là gọi tới...

www.giaiphapexcel.com

Em có đọc mà chưa hiểu lắm. Nó vẫn báo lỗi "Subscript out of range". Mong anh chị giúp đỡ

 

[tigertiger]

Em muốn xóa 1 phần tử trong mảng nhưng code em bị lỗi, mong các anh chị giúp đỡ

Sub RemoveItem(index As Long)
Dim i As Long
Dim MyArr
MyArr = Sheet1.Range("A8:A" & Sheet1.Range("A65536").End(xlUp).Row).Value
    For i = index + 1 To UBound(MyArr)
      MyArr(i - 1) = MyArr(i)
    Next
ReDim Preserve MyArr(Len(MyArr) - 1)
End Sub

MyArr nhận giá trị gán từ range là mảng 2 chiều ---> phải viết MyArr(i,1)

 

[ptm0412]

Một lỗi khác là Array không có độ dài không thể xài hàm Len

 

[VetMini]

Code này còn nhiều vấn đề lắm.
Vì MyArr là mảng 2 chiều nên không thể Redim Preserve được.

Phải biết cái sub này chủ yếu dùng vào việc gì mới có cách sửa. Hiện nay thì nó chỉ chạy chơi cho vuio chưa chẳng thực hiện điều gì cả.