Question

求一个vba小程序

树的个数和种类都不定的，也可能有梨树有桃树等等，下面数据的行数也可能会更多，数据汇总在一个新的表格中





Answer 1

Sub 木材统计()
 Dim i&, j&, k&, Sh As Worksheet, Shz As Worksheet
 Set Sh = Worksheets("木材统计")
 Set Shz = Worksheets("汇总结果")
 j = 8: k = 1
 Do
  i = 2
  Do While Sh.Cells(i, j) <> ""
   Shz.Cells(k, 1) = Sh.Cells(i, j)
   Shz.Cells(k, 2) = Sh.Cells(i, j + 1)
   Shz.Cells(k, 3) = Sh.Cells(1, j)
   i = i + 1: k = k + 1
  Loop
  j = j + 2
 Loop Until Sh.Cells(2, j + 1) = 0
End Sub

Answer 2

别动不动就VBA，汇总用数据透视表啊，当然你要是会access就更方便了

追问

我就感觉vba方便啊，一点就完事，不需要其他操作，其他都有繁琐的操作流程啊

追答

数据透视表做好了连点都不用点