VBA Gán Phạm vi cho Mảng

Hướng dẫn này sẽ trình bày cách điền một mảng với một phạm vi ô.

Gán Phạm vi cho Mảng

Chúng ta có thể dễ dàng điền một mảng A Variant với một loạt các ô.

Gán giá trị từ một cột duy nhất

Ví dụ này sẽ lặp qua Phạm vi (“A1: A10”), gán giá trị ô cho một mảng:

12345678910111213

Sub TestArrayValuesSingle ()'Khai báo mảng là một mảng biến thểDim arRng () As Variant'Khai báo số nguyên để lưu trữ số hàngDim iRw As Integer'Gán phạm vi cho biến mảngarRng = Phạm vi ("A1: A10")'lặp qua các hàng - 1 đến 10Đối với iRw = 1 Tới UBound (arRng)'hiển thị kết quả trong cửa sổ ngay lập tứcDebug.Print arRng (iRw, 1)IRw tiếp theoKết thúc Sub

Các UBound được sử dụng để thiết lập giới hạn trên của mảng (ví dụ: 10) để vòng lặp biết lặp lại 10 lần.

CácDebug.Print hàm sẽ hiển thị cho bạn giá trị có trong mảng trong cửa sổ ngay lập tức.

Gán giá trị từ nhiều cột

123456789101112131415161718

Sub TestArrayValuesMultiple ()'Khai báo mảng là một mảng biến thểDim arRng () As Variant'Khai báo số nguyên để lưu trữ số hàngDim iRw As Integer'Khai báo số nguyên để lưu trữ số cộtLàm mờ iCol dưới dạng Số nguyên'Gán phạm vi cho biến mảngarRng = Phạm vi ("A1: C10")'lặp qua các hàng - 1 đến 10Đối với iRw = 1 Tới UBound (arRng, 1)'now - khi ở hàng 1, lặp qua 3 cộtĐối với iCol = 1 đến UBound (arRng, 2)'hiển thị kết quả trong cửa sổ ngay lập tứcDebug.Print arRng (iRw, iCol)ICol tiếp theoIRw tiếp theoKết thúc Sub

Trong đoạn mã trên, chúng ta đã điền mảng với các giá trị trong Range (“A1: C10”).

Các UBound được sử dụng một lần nữa - nhưng lần này cần hai lần - một lần để lặp qua các hàng và sau đó lặp lại qua các cột.

Các Debug.Print hàm sẽ hiển thị cho bạn giá trị có trong mảng trong cửa sổ ngay lập tức.