Excel-Makro zu ändern, ganze Spalte in Großbuchstaben
Ich versuche, die Aktualisierung einer Arbeitsmappe habe ich ändern Sie alle E-Mails von klein-zu Großbuchstaben.
Ich bin nicht so versiert mit Makros noch nicht, aber ich kam mit dieser ein, aber es dauert ewig zu laufen. (nur etwa ~1k Zeilen).
Sub Uppercase()
' Loop to cycle through each cell in the specified range.
For Each x In Range("B:B")
' Change the text in the column to uppercase letters.
x.Value = UCase(x.Value)
Next
End Sub
Ist es etwas besser sollte ich verwenden?
tl;dr ich ändern müssen ganze Spalten Fall, in Großbuchstaben um.
Du musst angemeldet sein, um einen Kommentar abzugeben.
Brauchen nicht eine Schleife an alle, dieser sollte sich darum kümmern, es im Grunde sofort:
Nicht die ganze Palette auf einmal:
Versuchen, diese stattdessen. Sie Schleife über jede Zelle in Spalte B, das ist der Grund, warum es langsam ist.
Gut, aber mit solch einer Funktion auf eine Auswahl wesentlich benutzerfreundlicher:
(Hinweis: Kann jemand dieses Problem beheben zu Bearbeiten!!!)
Sub ToUpper()
Für Jede Zelle In der Auswahl
Wenn Nicht Zelle.HasFormula Dann
Zelle.Wert = UCase(Zelle.Wert)
End If
Weiter
End Sub