Lai pilnībā pārsūtītu datus no pašreizējā šūnu diapazona uz jaunu tabulu, jums jāzina, cik liels šūnu diapazons atrodas ap aktīvo šūnu. Vai arī ļaujiet programmai Excel to izdarīt jūsu vietā un nokopējiet g
Vai vēlaties automātiski kopēt visas šūnas no blakus esoša makro diapazona? Tas ir īpaši noderīgi, ja vēlaties elastīgi reaģēt uz lietotāju ievadīto informāciju un nezināt, cik lieli ir ievadītie datu apgabali.
Lai veiktu šo darbu, varat izmantot makro. Makro nosaka visas šūnas ap aktīvo šūnu un kopē tieši šīs šūnas jaunā darbgrāmatā.
Nākamajā attēlā parādīta tabula ar trim dažādām datu zonām. Tie ir marķēti ar krāsām, lai tos būtu vieglāk redzēt.
Visas šūnas, kas savienojas ar blakus esošajām šūnām bez tukšām šūnām, tiek uzskatītas par piederīgām kopā.
Izmantojot piemērotu makro, varat nodrošināt, ka pēc noklikšķināšanas uz šūnas šūnu diapazonā visas tai piederošās šūnas tiek kopētas jaunā tabulā. Šeit ir atbilstošais programmas kods:
Apakškopēt pašreizējo apgabalu ()
Aptumšot avota apgabalu kā diapazonu
Aptumšot NewSheet kā darblapu
Iestatīt avota apgabalu = ActiveCell.CurrentRegion
Iestatīt NeuesBlatt = Workbooks.Add.Worksheets (1)
Avota apgabals. Kopēšanas galamērķis: = NeuesBlatt.Range ("A1")
Beigt apakš
Pirms makro izsaukšanas noklikšķiniet uz jebkuras tabulas šūnas. Makro nosaka visas šūnas, kas kopā ar atlasīto šūnu pieder diapazonam, un kopē šo datu diapazonu jaunā, tukšā darbgrāmatā. Nākamajā attēlā parādīts, kā izskatās rezultāts pēc makro izsaukšanas, ja pirms makro sākuma ir atlasīta tabulas šūna E9 pirmajā attēlā.
Lai ievadītu makro, programmā Excel nospiediet ALT F11, lai atvērtu VBA redaktoru. VBA redaktorā atlasiet komandu INSERT - MODULE un ievadiet makro. Lai sāktu makro, programmā Excel aktivizējiet taustiņu kombināciju ALT F8. Abi īsinājumtaustiņi VBA redaktora palaišanai un makro darbojas visās Excel versijās.
