excelmacrosvba – 什么是填充数据的代码？

林新的VBA的Excelmacros。 通常在Excel中，我将双击单元格，然后数据将自动生成，直到最后一行。 但在VBA如何使？ 以下是我的代码。 目前即时selectBF2来查找。 在得到了vlookup的价值之后。 我想填充数据直到最后一行。 通常以excel的方式，我将双击单元格，然后它将填充。 那么我们如何在vba中做macros呢？ build议请。

Set myValues = Application.InputBox("Please select on the CON2:", Default:=Range("BE2").Address(0, 0), Type:=8) Set myResults = Application.InputBox("Please select previous CON2 to VLOOKUP:", Type:=8) On Error Resume Next Set myValues = myValues.Offset FirstRow = myValues.Row FinalRow = Cells(65536, myResults.Column).End(xlUp).Row Range("BF2").Formula = _ "=VLOOKUP(" & Cells(FirstRow, myValues.Column).Address(False, False) & ", " & _ " " & myResults.Address(External:=True) & " , 1, 0)" 

Answer 1

我想这是你想要的。

 Sub AutoFill() Dim sRng As Range, fRng As Range FirstRow = myValues.Row FinalRow = Cells(65536, myResults.Column).End(xlUp).Row Range("BF2").Formula = _ "=VLOOKUP(" & Cells(FirstRow, myValues.Column).Address(False, False) & ", " & _ " " & myResults.Address(External:=True) & " , 1, 0)" Set sRng = Worksheets("Sheet1").Range("BF2") Set fRng = Worksheets("Sheet1").Range("BF2:B" & FinalRow) sRng.AutoFill Destination:=fRng End Sub 

Answer 2

在VBA中你可以这样做：

 Sub AutoFill() Dim sRng As Range, fRng As Range Set sRng = Worksheets("Sheet1").Range("B2") '<~~ Range to AutoFill from Set fRng = Worksheets("Sheet1").Range("B2:B10") '<~~ Range to AutoFill sRng.AutoFill Destination:=fRng End Sub 

此代码将根据单元格B2的内容AutoFill范围B2:B10 。