Wie effizient eine Formel Zellen in Excel mit VBA hinzufügen?

Question

Ich versuche, bestimmten Zellen in Excel bestimmte Namen und Beschreibungen zu geben. Ich nahm ein Macro auf und es produzierte die folgende Ausgabe. Ich habe mich gefragt, ob es eine effizientere Möglichkeit gibt, den Code zu schreiben? Ich muss dies für mehrere hundert Zellen tun, bevor ich die Zellen nach unten kopiere. Um klar zu sein, frage ich nicht, wie man Formeln hinzufügt. Ich frage, was der effizienteste Weg ist, der die geringste Menge an Ressourcen verbraucht.

Range("J2").Select 
     ActiveCell.FormulaR1C1 = "User Team" 

    Range("J3").Select 
     ActiveCell.FormulaR1C1 = "=VALUE(LEFT(RC[-1],4))" 

Answer 1

Abhängig davon, welche Folie Sie verwenden Sie wahrscheinlich diese verwenden:

Sheet1.Activate 

Sheet1.Range("J2") = "User Team" 

Sheet1.Range("J3") = "=DATE(LEFT(I3,4),MID(I3,6,2),MID(I3,9,2))"