'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
Next
End With