Excel如何根据单元格值X重复零次来重复多个值

编程问答 2022-06-13

问题描述

我已经设法使值在Cell任命时重复x次：

Sub copyData() 
Dim Rng As Range
Dim InputRng As Range,OutRng As Range
xTitleId = "Range"
Set InputRng = Range("A2:B1057")
Set OutRng = Range("E2")
For Each Rng In InputRng.Rows
xValue = Rng.Range("A1").Value
xnum = Rng.Range("B1").Value
OutRng.Resize(xnum,1).Value = xValue
Set OutRng = OutRng.Offset(xnum,0)
Next
End Sub

但是，如果有人可以通过提示我如何跳过包含“ 0”的单元格来帮助我，那将非常好，因为它会在零之前停止进程，而在零之后通常会出现另一行。我不能只删除那些行，因为我们总是在更改X值。

预先感谢您的帮助

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

excelexcelrepeatskip