Hướng dẫn này sẽ trình bày cách xuất một mảng sang một dải bằng cách sử dụng VBA.
Đầu ra (In) Mảng thành Dải ô
Dữ liệu được lưu trữ trong một mảng có thể dễ dàng được xuất ra một trang tính Excel. Có 3 cách để làm điều này.
Xuất dữ liệu sang một phạm vi khác
Chúng tôi có thể điền một mảng với dữ liệu từ một phạm vi trong Excel, và sau đó xuất dữ liệu sang một phạm vi khác trong Excel.
| 12345678 | Public Sub TestOutput ()'khai báo mảngDim rnArray () As Variant'điền mảng với phạm virnArray = Phạm vi ("A1: H24")'xuất mảng sang một phạm vi ô khácPhạm vi ("J1: Q24") = rnArray ()Kết thúc Sub |
Toàn bộ mảng được sao chép trong một dòng mã vào mảng và sau đó xuất toàn bộ mảng đó sang một phạm vi ô khác trên trang tính.
Vòng qua một mảng và xuất dữ liệu
Ví dụ này sẽ lặp qua một mảng, xuất mảng thành một dải ô.
| 12345678910111213 | Public Sub TestLoopArray ()'khai báo mảngDim rnArray () 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ảngrnArray = Phạm vi ("A1: A10")'lặp qua các giá trị trong mảngĐối với iRw = LBound (rnArray) Đến UBound (rnArray)'điền vào một phạm vi khác với dữ liệuÔ (iRw, 2) .Value = rnArray (iRw, 1)IRw tiếp theoKết thúc Sub |
LBoundvà UBoundtrả về chỉ số Bắt đầu (Giới hạn dưới) và chỉ số Kết thúc (Giới hạn trên) của một mảng, trong trường hợp này là 1 và 10.
Chuyển đổi dữ liệu mảng
Chúng tôi cũng có thể chuyển dữ liệu trong Mảng sang trang tính Excel. Transpose cho phép bạn hiển thị dữ liệu theo chiều ngang trên trang tính Excel.
Ví dụ: nếu chúng ta có một danh sách các trạng thái trong Excel và muốn chuyển đổi chúng.
Sau đó, chúng tôi có thể chạy mã sau:
| 12345678 | Public Sub TestOutputTranspose ()'khai báo mảngDim rnArray () As Variant'điền nó với phạm virnArray = Phạm vi ("A1: A38")'hoán vị dữ liệuPhạm vi (Ô (1, 3), Ô (1, 40)). Giá trị = Application.Transpose (rnArray)Kết thúc Sub |
Điều này sẽ dẫn đến những điều sau:
Đầu ra cho Debug.Print
Chúng ta cũng có thể xuất giá trị mảng ra cửa sổ gỡ lỗi.
| 12345678910111213 | Public Sub TestLoopArray ()'khai báo mảngDim rnArray () 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ảngrnArray = Phạm vi ("A1: A10")'lặp qua các hàng - 1 đến 10Đối với iRw = 1 Đến UBound (rnArray)'xuất ra cửa sổ ngay lập tứcDebug.Print rnArray (iRw, 1)IRw tiếp theoKết thúc Sub |
