Dažreiz tas kļūst par ikdienas darbu, lai kopētu datus no vairākām vienas slejas lapām. Šo soli var izvairīties, izmantojot automatizāciju. Ja vēlaties izveidot konsolidētu lapu pēc datu kopēšanas no katras lapas kolonnas vienā lapā, jums vajadzētu izlasīt šo rakstu.
Šajā rakstā mēs izveidosim makro, lai kopētu datus no konkrētas kolonnas un ielīmētu jaunā lapā.
Neapstrādātie dati šajā piemērā sastāv no darbinieku datiem Excel darbgrāmatas veidā, kurā ir trīs lapas ar darbinieku departamenta, personisko un kontaktinformāciju.
Lai kopētu datus no dažādām lapām uz jaunu lapu, mēs esam izveidojuši makro “CopyColumns”. Šo makro var palaist, noklikšķinot uz pogas “Palaist makro” lapā “Galvenā”.
Makrons “CopyColumns” pēc lapas “Main” ievietos jaunu lapu ar nosaukumu “Master”. “Galvenajā” lapā būs konsolidēti dati no visām lapām.
Koda skaidrojums
Darblapas. Pievienot (pēc: = darblapas ("Galvenais"))
Iepriekš minētais kods tiek izmantots, lai ievietotu jaunas darblapas pēc galvenās darblapas.
Ja Source.Name "Master" Un Source.Name "Main" Tad
Beigas Ja
Iepriekš minētais kods tiek izmantots, lai ierobežotu datu kopiju no lapas “Galvenais” un “Galvenais”.
Source.UsedRange.Copy Destination.Columns (Pēdējais)
Iepriekš minētais kods tiek izmantots, lai kopētu datus no avota lapas uz galamērķa lapu.
Par katru avotu šajā darba grāmatā. Darblapas
Ja Source.Name = "Master" Tad
MsgBox "Galvenā lapa jau pastāv"
Iziet no apakšnodaļas
Beigas Ja
Nākamais
Iepriekš minētais kods tiek izmantots, lai pārbaudītu, vai darbgrāmatā jau ir lapa “Galvenais”. Makro pārtrauks izpildi, ja darbgrāmatā jau ir lapa “Galvenā”.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Sub CopyColumns () Dim avots kā darblapa Dim galamērķis kā darblapa Dim pēdējā tik ilgi Application.ScreenUpdating = False 'Pārbaude, vai lapa "Master" jau pastāv darbgrāmatā katram avotam šajā darbgrāmatā.Darba lapas Ja Source.Name = "Master" Tad MsgBox "Galvenā lapa jau pastāv" Iziet Apakš beigas Ja nākamais 'Jaunu darblapu ievietošana darbgrāmatā Set Destination = Worksheets.Add (after: = Worksheets ("Main"))' Darblapas pārdēvēšana Destination.Name = "Master" 'Looping izmantojot darblapas darbgrāmatā Katram avotam šajā darba grāmatā.Darba lapas Ja avots.Nosaukums "Meistars" Un Avots.Nosaukums "Galvenais" Tad 'Pēdējās kolonnas atrašana no galamērķa lapas Last = Destination.Range ("A1"). SpecialCells ( xlCellTypeLastCell) .Column If Last = 1 Tad 'Datu ielīmēšana galamērķa lapā Source.UsedRange.Copy Destination.Columns (Last) Else Source.UsedRange.Copy Destination.Columns (Last + 1) End if End if Next Column.AutoFit Application.ScreenUpdating = True End Sub
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē