Excel - makro za kopiranje / lepljenje izbranega razpona

Težava

Imam povzetek podatkov po mesecih v enem listu in neobdelane podatke v drugem listu. Namesto ustvarjanja več delovnih listov za moje neobdelane podatke za vsak mesec, želim izbrisati podatke iz prejšnjega meseca in jih nadomestiti z novimi podatki. Če želite to narediti, bom moral kopirati formule, ki so ustvarile povzetek, v drug stolpec (za nov mesec) in nato kopirati in prilepiti vrednost povzetka podatkov za trenutni mesec (tako da, ko se izvorni neobdelani podatki spremenijo, ne bo spremenilo moje vrednosti).

Primer

 ABCD Jan Feb Mar Apr 1 5 6 7

Želim si, da bi bil moj končni rezultat podoben (npr. Kopirati iz A3: A6 in prilepiti na B3. Naslednji mesec bo kopiral iz B3: B6 in prilepil na C3, itd.).

 ABCD Jan Feb Mar Apr 1 1 5 5 6 6 7 7

Jan in Feb sta trenutno enaka, saj se bo kopiranje in lepljenje zgodilo pred zamenjavo novih neobdelanih podatkov.

Upam, da je smiselno. Imam zelo malo znanja v pisanju VB, vendar lahko uspe brati in razumeti preproste. Bi lahko kdorkoli pomoč mi z makro, ki bo to storil samodejno?

Rešitev

Ta makro uporablja vnosno polje, da vpraša, kateri mesec posodabljate. Uporabite številske vrednosti namesto tipkanja v mesecu. Primer: Jan. = 1, Feb. = 2, Mar. = 3. Predvidevam, da ne želite posodobiti januarja, tako da bo makro izstopil, če je 1 vnesen v vnosno polje (razen če je posodobljen od decembra, potem lahko spreminjamo ).

Upam, da to pomaga.

 Sub Update_Month () Dim answer Kot Variant Dim jj = 3 answer = InputBox ("Kateri mesec posodabljate?" & VbCrLf & _ "Ex: januar = 1, februar = 2, marec = 3, itd.) Primer 1 Izhod Podskupina 2 Za j = 3 do 6 Območje ("B" & j) = obseg ("A" & j) Naslednje j Primer 3 Za j = 3 do 6 Razpon ("C" & j) = Razpon ( "B" & j) Naprej j Primer 4 Za j = 3 do 6 Območje ("D" & j) = Območje ("C" & j) Naslednje j Primer 5 Za j = 3 do 6 Razpon ("E" & j) ) = Območje ("D" & j) Naslednje j Primer 6 Za j = 3 do 6 Območje ("F" & j) = Območje ("E" & j) Naslednje j Primer 7 Za j = 3 do 6 Razpon (" G "& j) = Območje (" F "& j) Naslednje j Primer 8 Za j = 3 do 6 Razpon (" H "& j) = Območje (" G "& j) Naslednje j Primer 9 Za j = 3 6 Območje ("I" & j) = Območje ("H" & j) Naslednje j Primer 10 Za j = 3 do 6 Razpon ("J" & j) = Območje ("I" & j) Naslednji j Primer 11 j = 3 do 6 Območje ("K" & j) = Območje ("J" & j) Naslednje j Primer 12 Za j = 3 do 6 Razpon ("L" & j) = Razpon ("K" & j) Naprej j Konec Izberite End Sub