Nếu kích thước mảng của bạn tăng lên và bạn không muốn sửa kích thước của mảng, bạn có thể sử dụng từ khóa ReDim. Excel VBA sau đó sẽ tự động thay đổi kích thước của mảng.

Thêm một số số vào cột A.

Dynamic Array in Excel VBA

Đặt một nút lệnh trên trang tính của bạn và thêm các dòng mã sau:

  1. Đầu tiên, chúng ta khai báo mảng có tên là số. Đồng thời khai báo hai biến kiểu Integer. Một kích thước được đặt tên và một có tên là i.

Dim numbers() As Integer, size As Integer, i As Integer

Lưu ý: mảng chưa có kích thước. số lượng, kích thước và tôi được chọn ngẫu nhiên ở đây, bạn có thể sử dụng bất kỳ tên nào. Hãy nhớ tham khảo những tên này trong phần còn lại của mã của bạn.

  1. Tiếp theo, chúng ta xác định kích thước của mảng và lưu trữ nó vào kích thước biến. Bạn có thể sử dụng chức năng trang tính CountA cho việc này. Thêm dòng mã sau:

size = WorksheetFunction.CountA(Worksheets(1).Columns(1))

  1. Bây giờ chúng ta biết kích thước của mảng và chúng ta có thể kích thước lại nó. Thêm dòng mã sau:

ReDim numbers(size)

  1. Tiếp theo, chúng ta khởi tạo từng phần tử của mảng. Chúng tôi sử dụng một vòng lặp.

For i = 1 To size

numbers(i) = Cells(i, 1).Value

Next i

  1. Chúng tôi hiển thị phần tử cuối cùng của mảng bằng MsgBox.

MsgBox numbers(size)

  1. Thoát khỏi Visual Basic Editor và nhấp vào nút lệnh trên trang tính.

Kết quả:

Last Element of the Array

  1. Bây giờ để hiểu rõ tại sao đây được gọi là mảng động, hãy thêm một số vào cột A.

Add Number

  1. Nhấp lại vào nút lệnh.

Dynamic Array Result

Kết luận: Excel VBA đã tự động thay đổi kích thước của mảng động này.

  1. Khi bạn sử dụng từ khóa ReDim, bạn xóa bất kỳ dữ liệu hiện có nào đang được lưu trữ trong mảng. Ví dụ, thêm các dòng mã sau vào mã đã tạo trước đó:

ReDim numbers(3)

MsgBox numbers(1)

Kết quả:

Without Preserve

Mảng trống.

  1. Khi bạn muốn bảo toàn dữ liệu trong mảng hiện có khi bạn kích thước lại nó, hãy sử dụng từ khóa Bảo tồn.

ReDim Preserve numbers(3)

MsgBox numbers(1)

Kết quả:

With Preserve