遍历
如何利用ExcelVBA解决棘手的数据提取问题
今天同事问了个我一个数据提取的问题。他的需求是这样的:他有1个工作簿，里面有100个工作表。他希望把每个工作表里的第6行的b6:i6数据复制到一起，也就是说他要把工作表里的第6行，汇总在一起。比如这样：他说如果你没办法，那他只能手动来复制100个工作表，提取这数据了。我想了下说，我用VBA编程试试。差不多10分钟折腾，我把代码搞定了。Public Sub tiqu()’指定行遍历工作表提取Application.ScreenUpdating = FalseDim LastRow As IntegerDim sh As Worksheet
excel 获取LISTVIEW列表中的数据
‘LISTVIEW1中有13列‘因为LISTVIEW1中的所有数据，有可能是通过筛选得来的，可能通过搜索得来的‘所以在这里将显示在LISTVIEW1中的数据写入数组ARR中，方便处理这些数据Dim arrWith ListView1ReDim 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行其他列写入数组中NextNextEnd With