发布网友 发布时间:2022-06-16 20:58
共2个回答
热心网友 时间:2023-11-07 18:57
懂你的意思,开票10W 一张,效果图是不是这样
我的做法是,先用ROUNDUP函数获取需要多少个空白行
然后用脚本(B1000代表 截取到B1000行),即可达到你要的结果,试试吧
Sub xxx()
t = [B1000].End(3).Row
For i = t To 1 Step -1
tt = Cells(i, 2)
If tt > 0 Then
For j = 1 To tt
Rows(i + 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAboveNext
Next
End If
Next
End Sub
热心网友 时间:2023-11-07 18:57
不知道你说法的10万是不是10万行,EXCEL里最多有65536行,如果不是10万行,不知道你说的是什么追问金额超过10万元插入1行 金额超过20万元插入2行 金额超过30万元插入3行