So ändern Sie den Namen der Spalte in Excel mit vba

Question

Ich möchte den Namen der Spalten in einem Excel-Blatt mit Excel ändern. Ich bin neu zu vba und fand einige Codes online, aber sie sind meistens für, wie man Feldnamen im Zugang unter Verwendung von Excel vba ändert.

Ich möchte die Spaltenüberschriften wie im Bild umbenennen. Danke

Answer 1

Sie sagen nicht, wenn es mehr als einen Bereich mit diesen Headern gibt, so wird meine Lösung für mehrere funktionieren. Leider funktioniert es für maximal 26 Spalten, eine für jeden Buchstaben des Alphabets. Sie können es erweitern, wenn Sie möchten. Ich habe Arbeitsmappen- und Arbeitsblattnamen hinzugefügt, diese sind für mich besonders, Sie müssen sie natürlich ändern. Der Code sucht nach Datenbereichen und durchläuft sie, wobei die Header für jeden Bereich geändert werden. Sie können den Code anpassen, um nur einen Bereich zu machen. Der Code beginnt in der oberen linken Ecke des Bereichs und bewegt sich jeweils über eine Zelle hinweg, bis keine Daten mehr vorhanden sind. Anschließend wird der Code in den nächsten Bereich verschoben.

Sub NewColumnNames() 

Dim FruityColumnNames(26) As String 
Dim a As Integer 
Dim Alphabetical As Integer 

FruityColumnNames(1) = "Apple" 
FruityColumnNames(2) = "Banana" 
FruityColumnNames(3) = "Cherry" 
FruityColumnNames(4) = "Damson" 
FruityColumnNames(5) = "Elderberry" 
FruityColumnNames(6) = "Fig" 
FruityColumnNames(7) = "Gooseberry" 
FruityColumnNames(8) = "Hawthorn" 
FruityColumnNames(9) = "Ita palm" 
FruityColumnNames(10) = "Jujube" 
FruityColumnNames(11) = "Kiwi" 
FruityColumnNames(12) = "Lime" 
FruityColumnNames(13) = "Mango" 
FruityColumnNames(14) = "Nectarine" 
FruityColumnNames(15) = "Orange" 
FruityColumnNames(16) = "Passion fruit" 
FruityColumnNames(17) = "Quince" 
FruityColumnNames(18) = "Raspberry" 
FruityColumnNames(19) = "Sloe" 
FruityColumnNames(20) = "Tangerine" 
FruityColumnNames(21) = "Ugli" 
FruityColumnNames(22) = "Vanilla" 
FruityColumnNames(23) = "Watermelon" 
FruityColumnNames(24) = "Xigua" 
FruityColumnNames(25) = "Yumberry" 
FruityColumnNames(26) = "Zucchini" 

With Workbooks("TestBook.xlsx") 
    With .Worksheets("Destination") 
     With .UsedRange.SpecialCells(xlCellTypeConstants) 
      For a = .Areas.Count To 1 Step -1 
       Alphabetical = 1 
       With .Areas(a) 
        While (.Cells(1, Alphabetical) <> "" And Alphabetical <= 26) 
         .Cells(1, Alphabetical).Value = FruityColumnNames(Alphabetical) 
         Alphabetical = Alphabetical + 1 
        Wend 
       End With 
      Next a 
     End With 
    End With 
End With 

End Sub