Excelの各列をループし、数式を1つのセルずつドラッグします

Question

私はVBAを初めて使用していて、それを使っていくつかのことをする方法を知りたいと思います。下の表に示すように、私が通常行うことは、データが時間とともに拡大するにつれて、各列の1つのセルに数式をドラッグすることです。ドラッグ・ダウン・アクションを自動的に行う各列をループするための迅速かつ効率的な方法はありますか？

Answer 1

コード式はこれまでカラム

Option Explicit 

Sub autofill() 
Dim rng As Range 
Dim ws As Worksheet 
Dim y 

Set ws = Sheets("Sheet1") 

'range 
Set rng = ws.Range("A1:" & ws.Range("A1").End(xlToRight).Address) 

'looping 
For Each y In rng 

'autofilling, note the split function retreiving the letter for the range 
    ws.Range(Split(Cells(, y).Address, "$")(1) & "2").autofill Destination:=ws.Range(Split(Cells(, y).Address, "$")(1) & "2:" & Split(Cells(, y).Address, "$")(1) & ws.Range("A1").SpecialCells(xlCellTypeLastCell).Row) 
Next y 

End Sub