求哪位大神，帮忙改下代码

q20010303

Private Sub CommandButton1_Click()
Dim sInt, n, x As Integer
Application.ScreenUpdating = False
sInt = Application.InputBox(Prompt:="输入需要复制个数")
    If Len(Trim(sInt)) > 0 Then
        n = sInt
    Else
        MsgBox Prompt:="没有输入有效的数字"
        Exit Sub
    End If
Do While x < n
x = x + 1
Worksheets("报告").Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Range("J3") = x + 1
Application.ScreenUpdating = True
Loop
End Sub



J3的数字有可能是任意的数字，所以这个VBA不太合适了   改下算法
假如J3的数字是5，运行VBA复制后,J3为6789.......的顺序
假如J3的数字是11，运行VBA复制后,J3为12、13、14、.......的顺序

蓝桥玄霜

请见代码。

1. Private Sub CommandButton1_Click()
   
2.     Dim sInt, n, x As Integer, aa
   
3.     Application.ScreenUpdating = False
   
4.     [j:j].ClearContents
   
5.     aa = [j3].Value
   
6.     sInt = Application.InputBox(Prompt:="输入需要复制个数")
   
7.     If Len(Trim(sInt)) > 0 Then
   
8.         n = sInt
   
9.     Else
   
10.         MsgBox Prompt:="没有输入有效的数字"
    
11.         Exit Sub
    
12.     End If
    
13.     Do While x < n
    
14.         x = x + 1
    
15.         Cells(x + 3, 10) = aa + x
    
16.     Loop
    
17.     Application.ScreenUpdating = True
    
18. End Sub
    

复制代码

q20010303

蓝桥玄霜 发表于 2018-10-3 15:39
请见代码。

大神，可能我没有表达清楚，放上一张模拟操作图