|
楼主 |
发表于 2015-12-31 10:53
|
显示全部楼层
zjdh 发表于 2015-12-29 18:54
您好,我仔细读了下您的程序,其中一段
DRR = WK.Sheets(I).UsedRange For C = 2 To UBound(DRR, 2) Step 2
For W = 2 To UBound(DRR)
If DRR(W, C) <> "" Then
K = K + 1
ReDim Preserve ARR(1 To 9, 1 To K)
ARR(C / 2 * 3 - 2, K) = B '录入文件名称
ARR(C / 2 * 3 - 1, K) = DRR(W, C - 1)
ARR(C / 2 * 3, K) = DRR(W, C)
End If
Next: Next
这是通过分表所有统计内容都是间隔2个位置而写的step为2的一个循环,但如果分表A,B中的数据间隔并不是相同的,如修改后上传的附件,这又该怎么实现呢?
|
|