Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
Excel 2019 - Suchen und Ersetzen nur eine Spalte
#4
Gerade mal getestet:
500.000(!) Zellen mit 2 Großbuchstaben.

Wer es testen möchte:
Füllmakro:
Code:
Sub Fill_It()
With Range("A2:A500001")
  .Formula = "=CHAR(RANDBETWEEN(65,75))&CHAR(RANDBETWEEN(65,75))"
  .Copy: .PasteSpecial xlPasteValues
  Application.Goto .Cells(1)
  Application.CutCopyMode = False
End With
End Sub

Ersetzen findet (bei mir) 91.217 Fundstellen und ersetzt sie in 2,7 Sekunden.
Ist selbst auf meiner älteren Möhre weit davon entfernt, dass die CPU heiß läuft …
Code:
Sub Ersetzen()
Dim Start#
Start = Timer
Range("A2:A500001").Replace "A", "Z", xlPart
Debug.Print Timer - Start
End Sub
Stellt sich jetzt die Frage, was Du falsch machst!
Wenn ich mein Ersetzen-Makro jetzt nochmal über die bereits bereinigte Spalte laufen lasse, braucht der PC 0,2 Sekunden.
Heißt dass das Suchen extrem flott geht, das Ersetzen (bedingt durch die vielen Zellzugriffe) etwas ausbremst.

Aber weil Du ja über Java dozierst.
Auch das kann VBA schneller.
Code:
Sub arrReplace()
Dim Start#, arr, i&
Start = Timer
With Range("A2:A500001")
  arr = .Value
  For i = 1 To 500000
    arr(i, 1) = Replace(arr(i, 1), "A", "Z")
  Next
  .Value = arr
End With
Debug.Print Timer - Start
End Sub

schafft es in 1,2 Sekunden.

Und jetzt Du! Wink
Zitieren


Nachrichten in diesem Thema
RE: Excel 2019 - Suchen und Ersetzen nur eine Spalte - von RPP63 - 05.04.2021, 17:34

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste




Hinweis auf Angebot Excel-Inside - lang    Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden um dein Anliegen zu besprechen.
   Gerne erstellen wir auf dieser Basis ein Angebot.
   Sende deine Anfrage einfach
per E-Mail an anfrage@excel-inside.de


Powerd and supported by Excel-InsideSolutions