Ändern Sie alle Zellen im ActiveSheet mit VBA in Microsoft Excel in Werte

Anonim

In diesem Kapitel erfahren Sie, wie Sie mit VBA in Microsoft Excel alle Zellen im aktiven Arbeitsblatt in Werte umwandeln.

Nehmen wir ein Beispiel und verstehen, wie wir den VBA-Code schreiben, um den Zellenwert im aktiven Blatt zu ändern.

Wie ändere ich alle Zellenwerte im aktiven Blatt?

Wir haben Daten in Excel, in denen wir alle Zellenwerte durch nur einen Zellenwert ersetzen möchten.

Folgen Sie den unten angegebenen Schritten:

  • Drücken Sie Alt+F11, um die Visual Basic-Anwendung zu öffnen

  • Doppelklicken Sie in VBAProject auf Blatt 1
  • Geben Sie den unten angegebenen VBA-Code ein
 Sub Values_1() With ActiveSheet.UsedRange Range("A1:I7").Value = Range("A2").Value End With End Sub 

  • Um den Code auszuführen, drücken Sie die Taste F5
  • Der Wert der Zelle A2 wird im definierten Bereich aktualisiert

Wie ändert sich der Wert von der ersten Tabelle in die zweite Tabelle?

Wir haben 2 Tische, 1NS Der Bereich der Tabelle ist A3:I5 und 2nd Tabellenbereich ist A8:I10. Wir wollen den Wert von 1 . ersetzenNS Tabelle mit dem Wert 2 Tabelle im aktiven Blatt.

Um den Wert zu ändern, folgen Sie den unten angegebenen Schritten und Code:

  • Öffnen Sie die Visual Basic-Anwendung
  • Geben Sie den folgenden Code ein:-
Sub Values_1() With ActiveSheet.UsedRange Range("A3:I5").Value = Range("A8:I10").Value End With End Sub 

  • Führen Sie den Code aus, indem Sie F5 drücken
  • Werte werden aktualisiert

Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie mit Ihren Freunden auf Facebook. Und Sie können uns auch auf Twitter und Facebook folgen.

Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder erneuern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site