私はExcelシートの最後の行の番号を持っています。範囲の関数にこれを組み込むことで、データを自動入力できますか？

Question

public LastCell as integer 
Dim rng As Range 
On Error Resume Next 
Set rng = Application.InputBox(Prompt:="Select the last row in the file", Title:="LAST CELL", Type:=8) 
LastCell = rng.Row 

最後のセルを入力するように求められます。

Selection.AutoFill Destination:=Range(Cells(1, 13), Cells(LastCell, 13)), Type:=xlFillValues 

これらは別個のモジュールである。彼らはうまくいかない？それに対する他の選択肢はありますか？ありがとう！

Answer 1

コードの主な問題は、「選択」を使用して行を「最後のセル」に自動入力することですが、選択するセルは指定しないことです。次の例では、M1の式が「LastRow」という行に到達するまでコピーされます。

Sub Autofill() 

     Dim LastRow As Integer 

     LastRow = InputBox(Prompt:="Select the last row in the file", Title:="LAST CELL") 
     Range("M1").Autofill Destination:=Range("M1:M" & LastRow), Type:=xlFillValues 

End Sub