[已解决]打印数据自动生成，添加了一列，表格不会改了

zames

添加了一列和两行，表格改不行了，求助大神帮忙看看。
如表格，点控件 COPY 可以把 B2:D25 中相应数据按 E 列的值在 A2:B10000 中相应复制下去

最佳答案

月排行榜 / 总排行榜

我行我速2008

2022-7-15 15:39

不知道是不是这个意思！！

跳转到最佳答案楼层

我行我速2008

不知道是不是这个意思！！

zames

我行我速2008 发表于 2022-7-15 15:39
不知道是不是这个意思！！

谢谢！

zames

我行我速2008 发表于 2022-7-15 15:39
不知道是不是这个意思！！

在第二行输入，会出现错误，错误提示类型布匹配。

我行我速2008

Sub demo()
   [a2:b10000].ClearContents
   b = Range("c2:e" & [c2].End(4).Row)
   r = 1
   For i = 1 To UBound(b)
      If b(i, 3) > 0 Then
        For j = 1 To b(i, 3)
           r = r + 1
           Cells(r, 1) = b(i, 1)
           Cells(r, 2) = b(i, 2)
        Next
      End If
   Next
End Sub