[已解决]代码请教

yl001

自己录制修改了一段宏代码，不知道再怎样修改了{:041:}
请各位老师看看，
Sub 粘贴2()
    Selection.Copy
    For i = 1 To 20
    ActiveCell.Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Next
End Sub

For i = 1 To 20  这里的20怎样用弹出对话框形式输入数字？

最佳答案

月排行榜 / 总排行榜

爱疯

2011-9-29 22:50

Sub 粘贴2()
    Dim x, i
    x = InputBox("请输入：")
    Selection.Copy
    For i = 1 To x
        ActiveCell.Offset(1, 0).Select
        Selection.PasteSpecial Paste:=xlPasteValues
    Next
End Sub

跳转到最佳答案楼层

爱疯

Sub 粘贴2()
    Dim x, i
    x = InputBox("请输入：")
    Selection.Copy
    For i = 1 To x
        ActiveCell.Offset(1, 0).Select
        Selection.PasteSpecial Paste:=xlPasteValues
    Next
End Sub

yl001

谢谢爱疯老师{:011:}

ls

爱疯 发表于 2011-9-29 22:50
Sub 粘贴2()
    Dim x, i
    x = InputBox("请输入：")

学习