[已解决]复杂填充

张雄友

填充序列，没有反应。

最佳答案

月排行榜 / 总排行榜

xdragon

2013-12-2 20:24

张雄友 发表于 2013-12-2 19:58
执行代码后，最小值不是从2开始的？而且最后一个单元出现了错误值。

我这里执行正常啊，而且，你的默认值根本就达不到，因为03版本的最大行数是65535，40000*3已经超出最大行数了。

1. Sub 填充序列()
   
2. 
   
3. Dim i&, arr, rng As Range, First As String, Last As String
   
4. 
   
5. First = Val(InputBox("请输入起始值", "温馨提示", "2"))
   
6. Last = Val(InputBox("请输入结束值", "温馨提示", "40000"))
   
7. Set rng = Application.InputBox("在哪个单元格开始生成？", "温馨提示", , , , , , 8)
   
8. 
   
9. If Len(First) = 0 Or Len(Last) = 0 Or rng Is Nothing Then Exit Sub
   
10. If (Last - First + 1) * 3 > Rows.Count Then MsgBox "生成的数据列大于表格最大允许的行", , "提示"
    
11. 
    
12. ReDim arr(1 To (Last - First + 1) * 3, 1 To 1)
    
13. TT = Timer
    
14. 
    
15. For i = 1 To UBound(arr)
    
16. arr(i, 1) = First + (i - 1) \ 3
    
17. Next
    
18. 
    
19. rng.Resize(UBound(arr)) = arr
    
20. 
    
21. MsgBox "用时" & Format(Timer - TT, "0.00") & "秒"
    
22. 
    
23. End Sub
    

复制代码

稍微做了下小改动。。。

跳转到最佳答案楼层

我心飞翔410

技巧可以 先手如图输入  选中  这个区域 下拉 在定位空值 = 上一个单元格

张雄友

我心飞翔410 发表于 2013-12-2 18:19
技巧可以 先手如图输入  选中  这个区域 下拉 在定位空值 = 上一个单元格

估计要1年时间。

xdragon

张雄友 发表于 2013-12-2 18:49
估计要1年时间。

这个方法很快啊，为什么要1年时间{:161:}

飞翔漏了个ctrl+enter确定输入公式

张雄友

xdragon 发表于 2013-12-2 19:01
这个方法很快啊，为什么要1年时间

飞翔漏了个ctrl+enter确定输入公式

我明白他的意思，用鼠标拖。再定位空值，输入=，上箭头，ctrl+enter。

风林火山

Set rng = Application.InputBox("在哪个单元格开始生成？", "温馨提示", , , , , , 8)

If First = "" Or Last = "" Then Exit Sub这两句导致程序直接跳出了，未进入循环

风林火山

1. Sub 填充序列()    '修改后代码，不一定合适，仅作参考
   
2.     On Error Resume Next
   
3.     Dim i&, m&, arr(), First As String, Last As String
   
4.     First = Val(InputBox("请输入起始值", "温馨提示", "2"))
   
5.     Last = Val(InputBox("请输入结束值", "温馨提示", "40000"))
   
6.     If First = "" Or Last = "" Then Exit Sub
   
7.     Application.ScreenUpdating = False
   
8.     TT = Timer
   
9.     ReDim arr(4 To Last + 3, 1 To 1)
   
10.     For i = 1 To Last + 3 Step 3
    
11.         arr(i, 1) = 1 + (i - First) \ 3
    
12.         arr(i + 1, 1) = 1 + (i - First) \ 3
    
13.         arr(i + 2, 1) = 1 + (i - First) \ 3
    
14.     Next
    
15.     Range("i1").Resize(Last, 1) = arr
    
16.     MsgBox "用时" & Format(Timer - TT, "0.00") & "秒"
    
17.     Application.ScreenUpdating = True
    
18. End Sub
    

复制代码

xdragon

张雄友 发表于 2013-12-2 19:07
我明白他的意思，用鼠标拖。再定位空值，输入=，上箭头，ctrl+enter。

1. Sub 填充序列()
   
2. Dim i&, arr, rng As Range, First As String, Last As String
   
3. 
   
4. First = Val(InputBox("请输入起始值", "温馨提示", "2"))
   
5. 
   
6. Last = Val(InputBox("请输入结束值", "温馨提示", "40000"))
   
7. 
   
8. Set rng = Application.InputBox("在哪个单元格开始生成？", "温馨提示", , , , , , 8)
   
9. 
   
10. If First = "" Or Last = "" Or rng = "" Then Exit Sub
    
11. 
    
12. If (Last - First + 1) * 3 > Rows.Count Then MsgBox "生成的数据列大于表格最大允许的行", , "提示"
    
13. 
    
14. ReDim arr(1 To (Last - First + 1) * 3, 1 To 1)
    
15. 
    
16. TT = Timer
    
17. 
    
18. For i = 1 To UBound(arr)
    
19. 
    
20. arr(i, 1) = First + (i - 1) \ 3
    
21. 
    
22. Next
    
23. 
    
24. rng.Resize(UBound(arr)) = arr
    
25. 
    
26. MsgBox "用时" & Format(Timer - TT, "0.00") & "秒"
    
27. 
    
28. End Sub

复制代码

我明白你说的原因了，不过即使不用vba也是有办法的，vba我按照你的基础上稍微改动了下哈。你看下吧

张雄友

xdragon 发表于 2013-12-2 19:54
我明白你说的原因了，不过即使不用vba也是有办法的，vba我按照你的基础上稍微改动了下哈。你看下吧

执行代码后，最小值不是从2开始的？而且最后一个单元出现了错误值。

张雄友

风林火山 发表于 2013-12-2 19:51

执行代码后，最小值不是从2开始的？怎么是从1开始的？