Ändra alla celler i ActiveSheet till värden med VBA i Microsoft Excel

Anonim

I det här kapitlet lär du dig hur du ändrar alla celler i det aktiva arket till värden med VBA i Microsoft Excel.

Låt oss ta ett exempel och förstå hur vi skriver VBA -koden för att ändra cellvärdet i aktivt ark.

Hur ändrar jag alla cellvärden i det aktiva arket?

Vi har data i Excel, där vi vill att alla cellvärden ska ersättas med endast ett cellvärde.

Följ nedanstående steg:-

  • Tryck på Alt+F11 för att öppna Visual Basic -programmet

  • I VBAProject Dubbelklicka på Sheet 1
  • Ange nedanstående VBA -kod
 Delvärden_1 () med ActiveSheet.UsedRange -intervall ("A1: I7"). Värde = intervall ("A2"). Värde slut med slutsub 

  • För att köra koden, tryck på F5
  • Cell A2 -värdet kommer att uppdateras i definieringsområdet

Hur ändrar man värdet från första tabellen till andra tabellen?

Vi har 2 bord, 1st bordets sortiment är A3: I5 och 2nd bordsintervallet är A8: I10. Vi vill ersätta värdet 1st tabell med värdet 2 tabell i det aktiva arket.

För att ändra värdet, följ nedanstående steg och kod:-

  • Öppna Visual Basic -programmet
  • Ange koden nedan:-
Delvärden_1 () med ActiveSheet.UsedRange -intervall ("A3: I5"). Värde = intervall ("A8: I10"). Värde slut med slutdel 

  • Kör koden genom att trycka på F5
  • Värdena uppdateras

Om du gillade våra bloggar, dela den med dina vänner på Facebook. Och du kan också följa oss på Twitter och Facebook.

Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra, komplettera eller förnya vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen