Cum să împartă foaia Excel în două coloane pentru a fi imprimate pe o singură foaie

În ciuda faptului că masa are doar 4 coloane o listă de bunuri este destul de vastă, iar când trimiteți o imprimare ia o coală imprimată. În efectuarea auditului pe stoc pentru a transporta un teanc de hârtie este incomod.

Pentru a salva un pic de hârtie, toner și energia cheltuită pentru imprimare în sine are o idee pentru a imprima tabelul din două coloane pe fiecare pagină, dar pentru a realiza această idee nu este atât de simplu.

Dacă programul Word este o funcție în fila „Aspect pagină“ numit „coloane“, care vă permite să împartă textul în mai multe coloane în Excel această opțiune nu poate fi găsit.

Prin urmare, pentru a partaja datele din tabel în două coloane, aveți nevoie pentru a scrie un macro care va efectua acțiunea.

Macro-ul este după cum urmează:

Dim sheetActive Ca foaie de lucru, sheetNoviy Ca foaie de lucru „dobavlyaemperemennye, kaklisty

SetsheetActive = ActiveSheet „atribui foaie activă variabilă

Vsego = sheetActive.Cells.Find (Ce: = »», Lookin` = XlValues ​​:?, lookat: = _

xlPart, SearchOrder: = xlByRows, SearchDirection: = xlPrevious, MatchCase: = Fals _

. SearchFormat: = Fals) .Row - 1 „opredelyaemdiapazon

Perviy = Application.WorksheetFunction.RoundUp (Vsego / 2, 0) delimdiapazon

Set sheetNoviy = Sheets.Add (, Foi (Sheets.Count)) „opredelyaemnovyylist

sheetNoviy.Range ( «A2»). Redimensionare (Perviy, 5) .value = sheetActive.Range ( «A2»). Redimensionare (Perviy, 5) .value

. SheetNoviy.Range ( «F2») Resize (Vsego - Perviy, 5) .value = _

sheetActive.Range ( «A» Perviy + 2) .Resize (Vsego - Perviy, 5) delimtablitsu .value“

Run macro poate fi dintr-o listă de macro (carte macro) sau atribuiți-l la elementul activ, cum ar fi un buton sau casetă de selectare.