Einfügen Neue Zeile Nach der Letzten Zeile im Arbeitsblatt, und Kopieren Format und die Formel aus der Zelle Oben

Ich bin auf der Suche nach einem VBA-Makro-Skript, suchen Sie die Letzte Zeile in einem Arbeitsblatt und fügen Sie eine neue Zeile darunter kopieren nur das format und die Formel von der Zeile oben ohne text. Ich konnte auch schon so weit, das Auffinden der letzten Zeile und kopieren der gesamten Zelle vor, die text enthalten, aber nicht in der Lage gewesen, um herauszufinden, den letzten Teil nicht tragen über der text.

Frage ich mich, ob es nicht eine Möglichkeit, um Makros den Prozess der Erstellung der neuen Zeile am Ende des Blattes und dann die Neuerstellung der Formel in die Zeile?

Jede Hilfe wird sehr geschätzt!

Dies ist, was ich habe, so weit, dass Werke:

Sub New_Formatted_Row_With_Formula

 'Locates Last Cell
  Cells(Rows.Count, 1).End(xlUp).Offset(1,0).Select
 'Inserts Row Below
  Rows(Selection.Row).Insert shift:=xlDown

End Sub
Poste deinen code, was du angekommen bist, so weit...

InformationsquelleAutor Shortbus47XYY | 2016-05-21

  1. 1
    Sub New_Formatted_Row_With_Formula()
Dim rActive As Range

Set rActive = ActiveCell

Application.ScreenUpdating = False

With Cells(Rows.Count, "A").End(xlUp)
    .EntireRow.Copy
    With .Offset(1, 0).EntireRow
        .PasteSpecial xlPasteFormats
        .PasteSpecial xlPasteFormulas
        On Error Resume Next
            .SpecialCells(xlCellTypeConstants).ClearContents
        On Error GoTo 0
    End With
End With

rActive.Select

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub
    Danke @Sixthsense! Dieser code funktioniert Super!!! Die einzige Sache, die es nicht tun ist, tragen Sie die Formel aus der Zelle über die Zellen unterhalb. Kann das getan werden?
    Vielleicht bin ich nicht spezifisch genug... Was ich möchte für Sie zu tun ist, kopieren Sie die Formel in die Zellen Range("E2:G2") über und führen Sie den gleichen Vorgang auf Zellen Range("E3:G3")...
    Ich habe den überarbeiteten code in der original-post. Bitte überprüfen und bestätigen.

    InformationsquelleAutor Sixthsense

Schreibe einen Kommentar