|
楼主 |
发表于 2023-3-6 14:24
|
显示全部楼层
老师您好!
当打印数量为 0 时,点击控件按钮 COPY 1 时出现错误。
错误提示如下红色位置
------------------------------
Sub demo()
[a2:a10000].ClearContents
b = Range("b2:c" & [b2].End(4).Row)
r = 1
For i = 1 To UBound(b)
For j = 1 To b(i, 2)
r = r + 1
Cells(r, 1) = b(i, 1)
Next
Next
For i = [a1].End(4).Row + 1 To 3 Step -1
If Cells(i, 1) <> Cells(i - 1, 1) Then
With Cells(i, 1).Resize([c28])
.Insert xlShiftDown
End With
With Cells(i, 1).Resize([c28])
.Value = [b28]
End With
End If
Next
End Sub
------------------------------------------
帮忙再看看,谢谢!
|
|