Excel - makronaredba za kopiranje / lijepljenje odabranog raspona

Problem

Imam sažetak podataka po mjesecima na jednom listu i sirove podatke u drugom listu. Umjesto stvaranja više radnih listova za moje sirove podatke za svaki mjesec, želim izbrisati podatke prethodnog mjeseca i zamijeniti ih novim podacima. Da biste to učinili morat ću kopirati formule koje su stvorile sažetak u drugi stupac (za novi mjesec), a zatim kopirati i zalijepiti vrijednost podataka sažetka tekućeg mjeseca (tako da kada se izvorni izvorni podaci promijene, to ne bi promijenilo moje vrijednosti).

Primjer

 ABCD Siječanj Veljača Ožujak Travanj 1 5 6 7

Želio bih da moj krajnji rezultat izgleda (npr. Kopirajte iz A3: A6 i zalijepite na B3. Sljedeći mjesec će kopirati iz B3: B6 i zalijepiti na C3, i tako dalje).

 ABCD Siječanj Veljača Ožujak Travanj 1 1 5 5 6 6 7 7

Jan i Feb su isti u ovom trenutku jer će se kopiranje i lijepljenje dogoditi prije nego što se zamijene novi neobrađeni podaci.

Nadam se da ima smisla. Imam vrlo malo znanja u pisanju VB, ali može upravljati čitati i razumjeti one jednostavne. Mogao bilo tko pomoć mene sa makro koji će to učiniti automatski?

Riješenje

Ova makronaredba koristi ulazni okvir kako bi pitala koji mjesec ažurirate. Umjesto tipkanja u mjesecu koristite numeričke vrijednosti. Primjer: Jan. = 1, Feb. = 2, Mar. to).

Nadam se da ovo pomaže.

 Sub Update_Month () Dim odgovor kao varijanta Dim jj = 3 answer = InputBox ("Koji mjesec ažurirate?" & VbCrLf & _ "Ex: siječanj = 1, veljača = 2, ožujak = 3, itd.") Slučaj 1 Izlaz iz slučaja 2 Za j = 3 do 6 Raspon ("B" & j) = Raspon ("A" & j) Sljedeće j Slučaj 3 Za j = 3 do 6 Raspon ("C" & j) = Raspon ( "B" & j) Sljedeće j Slučaj 4 Za j = 3 do 6 Raspon ("D" & j) = Raspon ("C" & j) Sljedeće j Slučaj 5 Za j = 3 do 6 Raspon ("E" & j ) = Raspon ("D" & j) Sljedeće j Slučaj 6 Za j = 3 do 6 Raspon ("F" & j) = Raspon ("E" & j) Sljedeće j Slučaj 7 Za j = 3 do 6 Raspon (" G "& j) = Raspon (" F "& j) Sljedeće j Slučaj 8 Za j = 3 do 6 Raspon (" H "& j) = Raspon (" G "& j) Sljedeće j Slučaj 9 Za j = 3 6 Raspon ("I" & j) = Raspon ("H" & j) Sljedeće j Slučaj 10 Za j = 3 do 6 Raspon ("J" & j) = Raspon ("I" & j) Sljedeći j Slučaj 11 j = 3 do 6 Raspon ("K" & j) = Raspon ("J" & j) Sljedeće j Slučaj 12 Za j = 3 do 6 Raspon ("L" & j) = Raspon ("K" & j) Dalje j Završi Odaberite Završi pod