excel问题续。。。。在表二中做宏，求支招

显示全部楼层 · 2012-12-13 10:17:09

数据表在sheet1,结果填入sheet2,在sheet1插入控件，指定如下程序运行即可 Sub rr()Dim i%, k%, j, arr()'Sheet2.Range("b2:z100").ClearContents不知道你的填充范围，不过这句很有必要，最后确定范围后加上For i = 2 To Range("a65536").End(xlUp).Row
For k = 2 To Cells(i, 200).End(xlToLeft).Column
If Cells(i, k)"" Then
j = j + 1
s = s & "," ...

千问 · 2012-12-13 10:17:09

你理解错意思了，遍历就是用 FOR EACH ，也是宏试下下面的代码，验证可用 Sub 提取数据1()Dim arr1, arr2, r%, i%, c%arr1 = Sheet1.UsedRange.Valuearr2 = Sheet2.Range("a2:a" & Sheet2.Range("a65536").End(3)....

千问 · 2012-12-13 10:17:09

那就做呗，遍历，也没多大范围，速度很快的，遍历到有数据的单元格，就取一下行，得到行数，如果是同一行的就变量自增一，最后把数据输出到B列，有数据的用&连接起来，放到C...