VBA-Excel-einfügen einer vordefinierten Kopfzeile

Da Sie wissen, dass Ihr Header vor der Zeit, können Sie schalten Sie aus mit mir unten. Dies sollte in den Headern, die Sie eingeben, und fügt Sie in alle Blätter. HINWEIS: Dies wird auch ENTFERNEN Sie alle Informationen in Zeile 1 auf jedem Blatt, so dass, wenn Sie nicht möchten, dass passieren, Kommentar/löschen Sie die Zeile.

Sub AddHeaders()
Dim headers() As Variant
Dim ws As Worksheet
Dim wb As Workbook

Application.ScreenUpdating = False 'turn this off for the macro to run a little faster

Set wb = ActiveWorkbook

headers() = Array("Superhero", "City", "State", "Country", "Publisher", "Demographics", _
    "Planet", "Flying Abilities", "Vehicle", "Sidekick", "Powers")
For Each ws In wb.Sheets
    With ws
    .Rows(1).Value = "" 'This will clear out row 1
    For i = LBound(headers()) To UBound(headers())
        .Cells(1, 1 + i).Value = headers(i)
    Next i
    .Rows(1).Font.Bold = True
    End With
Next ws

Application.ScreenUpdating = True 'turn it back on

MsgBox ("Done!")

End Sub

Können Sie auch verwenden, als eine Allgemeine makro - es verhindert benötigen, kopieren/einfügen (das ist eine gute Sache zu lernen, in VBA, um zu vermeiden, kopieren/einfügen) und Sie können auch erstellen eine dynamische header-array, wenn Ihre Kopfzeilen ändern sich Häufig. Lassen Sie mich wissen, wenn dies ist auf Kurs für das, was Sie suchen!

Edit: Hinweis zu arrays. Standardmäßig wird ein array hat 5 Elemente werden indiziert von 0 bis 4. I. e. Wenn Sie diese Schleife (psuedocode):

myArray() = Array("Batman","Superman","Catwoman","Rorschach")
for i = 1 to uBound(myArray())
  debug.print myArray(i)
Next i

Wird es nur drucken, "Superman","Catwoman","Rorschach". Dies ist so, weil "Batman", als der erste Eintrag, wird der 0-index. Ersetzen Sie einfach die for Linie mit diesem for i = lBound(myArray()) to uBound(myArray()) zu gehen, vom ersten bis zum letzten Eintrag. Oder Sie können for i = 0 to uBound(...

Aber Sie werden bemerken, dass die Schleife habe ich .Cells(1, 1+i).... Dies ist, weil meine Schleife beginnt bei 0, daher musste ich Sie 1 zu ich so dass es beginnen würde, in der zweiten Spalte.

Nicht wie das Null-basiertes array (wo es beginnt bei 0)? Sie können beginnen bei 1! Wie? Nur tun Dim myArray(1 to 10). Das erstellt ein array, aber bei 1 beginnend. Dann wird in diesem Beispiel drucken Sie alle vier Menschen:

for i = 1 to uBound(myArray())
    debug.print myArray(i)
next i

Einen Tipp, für die Schleife durch ein array zu verwenden lBound(array()) und uBound(array()) welches ist der erste Wert und der Letzte Wert jeweils.
Dies wird auch ermöglichen es Ihnen, das zu tun .Cells(1,i).Value ..., da ich bei 1 beginnt. Macht das Sinn?

InformationsquelleAutor BruceWayne

Damit kopieren Sie die header von Sheet1 alle anderen Blätter automatisch Verwendung:

srcSheet = "Sheet1"
For dst = 1 To Sheets.Count
    If Sheets(dst).Name <> srcSheet Then
    Sheets(srcSheet).Rows("1:1").Copy
    Sheets(dst).Range("A1").Select
    ActiveSheet.Paste
    End If
Next

Dieser code durchläuft alle Blätter, außer srcSheet und kopiert die erste Zeile von srcSheet Ihnen

InformationsquelleAutor Uri Goren