VBA kopieren Formel Letzte Zeile Dann Nächste Spalte

Question

Ich bin mit dem folgenden Code zu arbeiten, und wo ich habe eine harte Zeit, um diese zu umgehen ist das Stück in Klammern [CURRENT COLUMN]

Ich kann nicht ganz scheinen Verwenden Sie die aktuell verwendete Spalte, um die Formel einzufügen.

Ziel ist es, von den Spalten K zu END zu gehen. Wenn es eine Formel in Zeile 2 dieser Spalte gibt, kopieren Sie diese Formel nach unten und fahren Sie mit der nächsten Spalte fort.

Option Explicit 
Sub recalcdash() 
Dim oWkbk As Workbook 
Dim oWkst As Worksheet 
Dim oRng As Range 
Dim LastCol As Long 
Dim LastRow As Long 
Dim StartCol As Integer 
Dim StartRow As Long 


StartCol = 11 
Set oWkst = ActiveSheet 


LastRow = oWkst.Range("A" & oWkst.Rows.Count).End(xlUp).Row 
LastCol = oWkst.Cells(2, oWkst.Columns.Count).End(xlToLeft).Column 

For Each oRng In Range(Cells(2, 11), Cells(2, LastCol)) 
     If oRng.HasFormula Then 
      oRng.Copy 
      Range(Cells(2, StartCol), Cells(LastRow, [CURRENT COLUMN])).PasteSpecial (xlPasteFormulas) 
     End If 
     Next oRng 

End Sub 

Answer 1

Try

Range(Cells(2, StartCol), Cells(LastRow, [CURRENT COLUMN])).PasteSpecial (xlPasteFormulas 

zu

Range(Cells(2, oRng.Column), Cells(LastRow, oRng.Column)).PasteSpecial (xlPasteFormulas)