‘LISTVIEW1中有13列
【excel 获取LISTVIEW列表中的数据】‘因为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
推荐阅读
- 怎么在excel编辑栏中快速选择函数的参数
- excel怎样对区域中最大的几个数求和
- excel获取单元格所在列的名称
- excel中DATEVALUE函数的使用图解教程
- excel怎么利用公式实现数据的转置 图解教程
- excel怎么与VLOOKUP函数相反的左向查找公式
- excel中利用DATE函数进行几种日期计算
- excel怎么用数组公式对某列数值每隔N行求和
- 提高Excel公式可读性的一种方法
- 在Excel中怎么判断某年是否为闰年