资材表 制作， 望老师指教思路。 有图 有附件

kidd1217

资材表    制作， 望老师指教思路。 有图 有附件

把资产表一次 贴下去

jipingzhuang

看附件  直接下拉就行了

kidd1217

Sub a2222()
Dim ar1(), ar2()
i% = [a65536].End(xlUp).Row
ar1 = [f2].Resize(i, 16).Value
ReDim ar2(i * 8, 1)
n = 0
For i = 1 To UBound(ar1)
     ar2(2 + n, 1) = ar1(i, 1)
     ar2(3 + n, 1) = ar1(i, 9)
     ar2(4 + n, 1) = ar1(i, 2)
     ar2(5 + n, 1) = ar1(i, 10)
     ar2(6 + n, 1) = ar1(i, 13)
     ar2(7 + n, 1) = ar1(i, 14)
               
      n = n + 8
               
         Next i
  [b2].Resize(i * 8, 1) = ar2
End Sub


为什么有问题呢

1032446692

kidd1217 发表于 2013-1-23 17:18
Sub a2222()
Dim ar1(), ar2()
i% = [a65536].End(xlUp).Row

这是VBA问题吗？楼主太牛了  一上来就用VBA帮我们解决问题