EXCEL自动填充功能代码 求助

mccsgql

我们都知道，双击填充柄可以自动填充全部有数据行。可这是在左边有数据的情况下才能知道填充多少行。如果不知道要填充多少行呢？这个代码咋写？


例1：填充20行  录制宏后它的代码是  
      Selection.AutoFill Destination:=Range("B2:B20")
      Range("B2:B20").Select


例2：填充40行，录制宏后它的代码是
      Selection.AutoFill Destination:=Range("B2:B39")
      Range("B2:B39").Select

    从上边看出，它会指定填充到多少行，这个代码的前提是已经知道多少行。


问题：我预先做一个模板文件，不知道数据是多少行，可能是12行，也可能是9999行，也可能有是N行，这个代码咋写啊？总不可能写一个65536最大化去吧？有没有那位知道精准的代码，只填充到相应行就成了？

abc123281

建议上传附件

mccsgql

取最大行号65536是可行的，可是这样下来这个表运行太慢。有时查大量数据还行，几行数据也慢感觉怪怪的

不知道为什么

mccsgql 发表于 2018-9-29 10:51
取最大行号65536是可行的，可是这样下来这个表运行太慢。有时查大量数据还行，几行数据也慢感觉怪怪的

看清楚楼上说的有效数据最大行，不是65536

mccsgql

问题是：不知道这个有效数据最大行是多少啊？是先有模板，别人用这个模板粘贴数据后使用的，我不知道人家有多少行数据。

mccsgql

我把文件放上来大家看，这个20001行写上去怪怪的。自动填充应该是什么代码啊？
Selection.AutoFill Destination:=Range("A2:A20001")

Chip_Kenny

改一下, 改為能多格同時處理Private Sub Worksheet_Change(ByVal Target As Range)

1. Dim rng As Range, s$(2), ar
   
2. Set rng = Application.Intersect(Range("i2:i" & [h65536].End(3).Row), Target)
   
3. If rng Is Nothing Then Exit Sub
   
4. Application.EnableEvents = 0
   
5. ar = Sheets(1).[a1].CurrentRegion.Resize(, 3).Offset(1, 1).Value
   
6. For Each c In rng.Cells
   
7.     s(0) = c.Value: s(2) = c.Address
   
8.     For i = 1 To UBound(ar)
   
9.         If UCase(s(0)) = ar(i, 1) Then Exit For
   
10.     Next
    
11. If Not i > UBound(ar) Then s(0) = ar(i, 2): s(1) = ar(i, 3)
    
12. c.Resize(1, 2) = Application.Transpose(Application.Transpose(s))
    
13. Next
    
14. Application.EnableEvents = 1
    
15. End Sub

复制代码

mccsgql

麻烦高工给改下模板文件。我是医生，对代码本身就生。

mccsgql

搞定了这个智能填充代码
Dim row
    row = Range("B65536").End(3).row
    Range("A2:A" & row).Select
    Selection.FillDown