Pakeiskite diapazoną naudodami daugiau nei sritį į reikšmes naudodami „Microsoft Excel“ VBA

Anonim

Šiame straipsnyje sužinosite, kaip pakeisti diapazoną su daugiau nei sritimi į reikšmes naudojant „Microsoft Excel“ VBA.

Paimkime pavyzdį ir suprasime, kaip parašyti VBA kodą, kad pakeistumėte diapazoną su daugiau nei plotu į reikšmes.

Kaip pakeisti diapazoną su daugiau nei sritimi į reikšmes?

1 pavyzdys:-

Turime duomenų „Excel A1: C1“, šiuos duomenis norime įklijuoti skirtinguose diapazonuose. Pažiūrėkime, kaip?

Atlikite toliau nurodytus veiksmus:-

  • Paspauskite „Alt“+F11, kad atidarytumėte „Visual Basic“ programą

  • „VBAProject“ dukart spustelėkite 1 lapą
  • Įveskite žemiau pateiktą VBA kodą
Antrinės vertės_4 () Dim smallrng kaip diapazonas kiekvienam mažam diapazonui („A1: D10, E12: H17“). Sritys smallrng.Value = Diapazonas („A1: D1“). Vertė Kitas pabaiga 

  • Norėdami paleisti kodą, paspauskite klavišą F5
  • Vertės bus atnaujintos nustatytame mažame diapazone

2 pavyzdys:-

Tarkime, kad turime duomenų apibrėžtame mažame diapazone ir norime perrašyti tuos duomenis su konkrečiais diapazono duomenimis.

Norėdami išspręsti šią problemą, atlikite toliau nurodytus veiksmus:-

  • Paspauskite klavišą Alt+F11 ir dukart spustelėkite 2 lapą
  • Įveskite žemiau esantį kodą:-
Antrinės vertės_4 () Dim smallrng as Range for each smallrng in Range ("A1: D10, E12: H17"). Areos smallrng.Value = Diapazonas ("A1: D1"). Vertė Kitas pabaiga 
  • Paleiskite kodą paspausdami F5
  • Vertės bus atnaujintos

Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.

Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Parašykite mums el