☰

Excel：复制粘贴多个实例一个字符串

tag-icon • tag-icon microsoft-excel worksheet-function vba
Excel：复制粘贴多个实例一个字符串

我有一列包含以下值，需要根据需要将其粘贴到下一列中，比如粘贴三次或更多次。已经从另一篇文章中获得了有效的 INDEX 公式，但我不明白它是如何工作的 - =INDEX($A$2:$A$4,CEILING(ROWS($B$2:$B2)/3,1),1)。在下面的例子中，A 列中有 3 个值，我需要将 B 列中的值增加三倍。如果可以创建一个 VBA 宏来要求输入多少个实例，那将会很有帮助。谢谢！

样本

答案1

尝试一下：

Sub multies()
    Dim N As Long, i As Long
    x = Application.InputBox(prompt:="enter repetition factor", Type:=1)
    N = Cells(Rows.Count, "A").End(xlUp).Row
    k = 2
    For i = 2 To N
        v = Cells(i, 1).Value
        For j = 1 To x
            Cells(k, 2).Value = v
            k = k + 1
        Next j
    Next i
End Sub

相关内容