‘LISTVIEW1中有13列
‘因為LISTVIEW1中的所有數據，有可能是通過篩選得來的，可能通過搜索得來的
‘所以在這里將顯示在LISTVIEW1中的數據寫入數組ARR中，方便處理這些數據
Dim arr
With ListView1
ReDim arr(1 To .ListItems.Count, 1 To 13)
For i = 1 To UBound(arr, 1) ‘遍歷所有LISTVIEW1數據的行，用 For i = 1 To .ListItems.Count 也可以
arr(i, 1) = .ListItems(i).Text ‘第一列不一樣，無法通過循環得到，只好單取
For j = 2 To 13 ‘遍歷第i行的所有列的數據，共13列，第1列數據已取，從第2列開始
arr(i, j) = .ListItems(i).ListSubItems(j – 1).Text ‘將i行其他列寫入數組中
Next
Next
End With
