VBA füllen Sie die Formel nach unten bis zur letzten Zeile in Spalte

So, ich bin an einem Projekt arbeiten und ich versuche, mein VBA-code, um nach unten ziehen die Formel, die in Zelle M3 alle der Weg nach unten an das Ende des Datensatzes. Ich bin mit Spalte L als meine Basis, um zu bestimmen, was die Letzte Zelle mit Daten. Meine Formel ist ein verketten von zwei Zellen mit einem text, Komma in-zwischen Ihnen. Also in excel meine Formel ist =G3&","&L3

Ich soll excel, zeichnen sich diese Formel so in der Zelle M4 wäre es =G4&","&L4
Zelle M5 wäre =G5&","&L5 und so weiter.

Mein code sieht wie folgt aus:

Range("$M$3").Formula = Range("G3") & (",") & Range("L3")

Dim Lastrow As Long

Application.ScreenUpdating = False

Lastrow = Range("L" & Rows.Count).End(xlUp).Row
Range("M4").FormulaR1C1 = Range("G4") & (",") & Range("L4")
Range("M4").AutoFill Destination:=Range("M4:M" & Lastrow)
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True

Meine Ausgabe ist einfach nur ziehen Sie das text-Werte aus Zelle M3 alle der Weg nach unten an das Ende des Datensatzes. Ich habe gesucht, um für mehrere Stunden auf der Suche nach einer Lösung, aber kann nicht scheinen, einen zu finden, der versucht zu erreichen, was ich bin going.

InformationsquelleAutor MatTtT | 2014-09-11

  1. 32

    Es ist ein Einzeiler eigentlich. Keine Notwendigkeit zu verwenden .Autofill

    Range("M3:M" & LastRow).Formula = "=G3&"",""&L3"
    Danke! Das macht mich bedauern, nicht gefragt, früher! 🙂
    Hi Siddharth, ich bin versucht, dieselbe Formel in mein makro, aber es gibt Fehler Range("J5:J" & LastRow).Formel = "=WENNFEHLER(SVERWEIS(WENN(ISTZAHL(SUCHEN(""GESAMT"",RC[-9])),TRIM(LEFT(RC[-9],FIND("" "",RC[-9]&""""))),""""),z43.xlsx!R2C2:R137C5,3,FALSE),"""")" Laufzeitfehler 1004: die Methode range-Objekt _global ist fehlgeschlagen.
    Können Sie mir bitte helfen, was könnte der Grund sein? ich bin neu in diesem excel und makro
    Nitish, zuerst die Formel in Zelle J5 und überprüfen, ob es funktioniert und dann einfach kopieren Sie die Formel über 🙂

    InformationsquelleAutor Siddharth Rout

  2. 9

    Für Menschen mit einer ähnliche Frage und findet diesen Beitrag (wie ich);
    Sie können dies tun, auch ohne lastrow, wenn Ihr Datensatz wird als Tabelle formatiert.

    Range("tablename[columnname]").Formula = "=G3&"",""&L3"

    So dass es eine wahre one-liner. Hoffe es hilft jemandem!

    InformationsquelleAutor Monthy

  3. 9

    Alternativ können Sie verwenden FillDown

    Range("M3") = "=G3&"",""&L3": Range("M3:M" & LastRow).FillDown

    InformationsquelleAutor Anastasiya-Romanova 秀

  4. 0

    Wunderbare Antwort! Ich brauchte, um zu füllen Sie die leeren Zellen in einer Spalte, wo die Titel in den Zellen, die angewendet werden, um die leeren Zellen unten, bis der nächste Titel, der Zelle.

    Ich habe Ihre obigen code zu entwickeln, den code, der unten in meinem Beispiel-sheet hier. Ich habe den code als makro ctl/shft/D zu schnell laufen nach unten in der Spalte kopieren der Titel.

    --- Beispiel-Arbeitsblatt ------------
    Title1 kopiert die Zeilen 2 und 3; Title2 kopiert wird, um Zellen in Zeilen 5 und 6. Nach dem zweiten ausführen des Makros die aktive Zelle ist die Title3 Zelle. 

     ' **row** **Column1**        **Column2**
 '    1     Title1         Data 1 for title 1
 '    2                    Data 2 for title 1
 '    3                    Data 3 for title 1
 '    4     Title2         Data 1 for title 2
 '    5                    Data 2 for title 2
 '    6                    Data 3 for title 2
 '    7   Title 3          Data 1 for title 3

    ----- CopyDown code ----------

    Sub CopyDown()
Dim Lastrow As String, FirstRow As String, strtCell As Range
'
' CopyDown Macro
' Copies the current cell to any empty cells below it.   
'
' Keyboard Shortcut: Ctrl+Shift+D
'
    Set strtCell = ActiveCell
    FirstRow = strtCell.Address
' Lastrow is address of the *list* of empty cells
    Lastrow = Range(Selection, Selection.End(xlDown).Offset(-1, 0)).Address
'   MsgBox Lastrow
    Range(Lastrow).Formula = strtCell.Formula

    Range(Lastrow).End(xlDown).Select
 End Sub

    InformationsquelleAutor SteveG

Schreibe einen Kommentar