[已解决]请教大家，某一单元格向下填充时获取单元格范围的问题

tudigeming

我要做一个表表中用vlookup匹配另一个表中的数据
然后向下填充（就像鼠标点小黑点一样）
我在论坛上看到一个，但是range是有开始单元格的（b2:b）
我想问一下，可以在任意所在单元格，向下填充，直到左边那列单元格没有数据为止
谢谢

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-7-14 08:50

任意单元格按左边列数为基准向下填充。
Sub aaa()
  With ActiveCell
    .AutoFill Destination:=.Resize(Cells(65536, .Column - 1).End(3).Row - .Row + 1)
  End With
End Sub

跳转到最佳答案楼层

tudigeming

有大神帮忙看一下吗，谢谢

tudigeming

   
暂时找了个方法解决了
    Selection.Copy
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:

大灰狼1976

1. Sub aaa()
   
2.   [b1].AutoFill Destination:=[b1].Resize([a65536].End(3).Row)
   
3. End Sub

复制代码

大灰狼1976

任意单元格按左边列数为基准向下填充。
Sub aaa()
  With ActiveCell
    .AutoFill Destination:=.Resize(Cells(65536, .Column - 1).End(3).Row - .Row + 1)
  End With
End Sub

tudigeming

大灰狼1976 发表于 2017-7-14 08:50
任意单元格按左边列数为基准向下填充。
Sub aaa()
  With ActiveCell

我可以请你吃饭吗

tudigeming

虽然看不明白代码的意思
但是终于解决大问题了

大灰狼1976

tudigeming 发表于 2017-7-14 14:42
我可以请你吃饭吗

可以的，你在哪里我过来，你要包车费哟

tudigeming

大灰狼1976 发表于 2017-7-14 15:25
可以的，你在哪里我过来，你要包车费哟

好客山东欢迎您

大灰狼1976

下次我来山东青岛你可要请我吃青岛大虾啊