Šajā rakstā tiks parādīts, kā izmantot VBA, lai kopētu virkni šūnu uz citu lapu vai darbgrāmatu.
Lai iegūtu vairāk informācijas, izlasiet mūsu VBA kopēšanas un ielīmēšanas apmācību.
Kopēt uz esošo lapu
Lai kopētu šūnu diapazonu no vienas lapas uz citu jau esošu lapu, mēs varam izmantot šādu kodu:
123456 | Sub CopyAndPasteActiveSheet.Range ("A1: D10"). AtlasietAtlase. KopētIzklājlapas ("Sheet2"). AtlasietActiveSheet.PasteBeigu apakš |
Tādējādi tiks nokopēta informācija, kas saglabāta aktīvo lapu diapazonā A1: D10, un ielīmēta esošā lapā 2. Tā kā mēs neesam norādījuši diapazonu, kas jāizvēlas 2. lapā, tā automātiski ielīmēs to diapazonā (“A1”). Tas arī ielīmēs jebkuru formatējumu 2. lapā, kas bija 1. lapas diapazonā.
Ja mēs vēlamies to ielīmēt citā vietā 2. lapā, mēs varam izvēlēties sākuma šūnu vai diapazonu, kurā ielīmēt. Tālāk esošais kods ielīmēs informāciju, sākot no šūnas E2.
1234567 | Sub CopyAndPasteToRangeActiveSheet.Range ("A1: D10"). AtlasietAtlase. KopētIzklājlapas ("Sheet2"). AtlasietDiapazons ("E1"). IzvēlietiesActiveSheet.PasteBeigu apakš |
Lai vienkārši ielīmētu vērtības 2. lapā un neietvertu formatējumu, mēs varam izmantot šādu kodu. Vēlreiz mums nav jānorāda diapazons līdz lapai, ja vēlamies ielīmēt šūnā A1.
123456 | Sub CopyAndPasteValuesActiveSheet.Range ("A1: D10"). AtlasietAtlase. KopētIzklājlapas ("Sheet2"). AtlasietSelection.PasteSpecial Paste: = xlPasteValuesBeigu apakš |
Kopēt uz jaunu lapu
Lai kopētu un pēc tam ielīmētu jaunā lapā, mēs varam izmantot šādu kodu:
123456 | Sub CopyAndPasteNewSheetActiveSheet.Range ("A1: D10"). AtlasietAtlase. KopētSheets.Add After: = ActiveSheetActiveSheet.PasteBeigu apakš |
Lai tikai kopētu vērtības, mēs atkal varam izmantot xlPasteValues.
Kopēt esošajā darbgrāmatā
Lai pilnībā kopētu un ielīmētu citā darbgrāmatā, abas darbgrāmatas var būt jau atvērtas, vai arī mēs varam izmantot kodu, lai atvērtu citu darbgrāmatu, un pēc tam ielīmēt šajā darbgrāmatā.
Šis zemāk esošais kods tiek kopēts uz jau atvērtu darbgrāmatu.
1234567 | Sub CopyAndPasteEstinging BookDiapazons ("A1: D10"). AtlasietAtlase. KopētWindows ("CombinedBranches.xlsx"). AktivizējietSheets.Add After: = ActiveSheetActiveSheet.PasteBeigu apakš |
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
Šis zemāk esošais kods tiks kopēts un ielīmēts jaunā 2. darbgrāmatas lapā, kuru atvērs kods.
1234567 | Sub CopyAndPasteOpenWorkbookDiapazons ("A1: D9"). AtlasietAtlase. KopētDarbgrāmatas. Atveriet faila nosaukumu: = "C: \ ExcelFiles \ CombinedBranches.xlsx"Sheets.Add After: = ActiveSheetActiveSheet.PasteBeigu lapa |
PADOMS: aizstājiet faila nosaukumu darbgrāmatās. Atveriet argumentu ar savu faila nosaukumu!
Kopēt uz jaunu darbgrāmatu
Mēs varam arī kopēt un ielīmēt jaunā darbgrāmatā.
123456 | Sub CopyAndPasteNewWorkbookDiapazons ("A1: D9"). AtlasietAtlase. KopētDarbgrāmatas. PievienotActiveSheet.PasteBeigu apakš |