Formül Kopyala - Microsoft Excel

Eğer formülleri çok fazla satıra kopyalamanız gerekiyorsa ve bu iş artık sıkıcı hale geldiyse aşağıdaki makro işinizi görebilir.

Option Explicit

Sub FormulKopyala1()
    Dim i As Long
    
    i = [A1048576].End(xlUp).Row
    Range("B1:B" & i).Formula = Range("B1").Formula
End Sub

Sub FormulKopyala2()
    Dim i As Long
    
    i = [A1048576].End(xlUp).Row
    Range("B1").AutoFill Destination:=Range("B1:B" & i), Type:=xlFillDefault
End Sub

Option Explicit

Sub FormulKopyala1()
    Dim i As Long
    
    '--------------------------------------------------
    'B sütunundaki alanda olmasını istediğim
    'formüller B1 hücresindeki formüle göre
    'eklensin.
    '--------------------------------------------------
    i = [A1048576].End(xlUp).Row
    Range("B1:B" & i).Formula = Range("B1").Formula
End Sub

Sub FormulKopyala2()
    Dim i As Long
    
    '--------------------------------------------------
    'AutoFill metodunu B1 hücresindeki formül
    'için yap. Etkilenmesini istediğim alan da
    '(Destination) A sütununda kaç tane satır
    'varsa B sütununda da o kadar satır için yap.
    '--------------------------------------------------
    i = [A1048576].End(xlUp).Row
    Range("B1").AutoFill Destination:=Range("B1:B" & i), Type:=xlFillDefault
End Sub