Как да се раздели Excel електронна таблица в две колони, за да бъдат отпечатани на един лист

Въпреки факта, че на масата има само 4 колони списък на стоки, е доста обширна, а когато ви изпрати печат отнема един печатен лист. При извършване на одита на фонд за извършване на топчето хартия е неудобно.

За да спестите малко хартия, тонер и енергия, прекарано на отпечатъка си има идея за отпечатване на таблицата в две колони на всяка страница, но за да се реализира тази идея не е толкова просто.

Ако програмата Word е функция в раздела "Оформление на страница", наречен "колони", която ви позволява да се разделят текста на няколко колони в Excel тази опция не може да бъде намерен.

Ето защо, за да споделят данни от таблицата в две колони, трябва да се напише макрос, който ще се извърши действието.

Макросът е както следва:

Дим sheetActive Като лист, sheetNoviy Както Работен лист "dobavlyaemperemennye, kaklisty

SetsheetActive = ActiveSheet "определя променлива активен лист

Vsego = sheetActive.Cells.Find (Какво: = »», гледаш :? = XlValues, LookAt: = _

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

. SearchFormat: = False) .Row - 1 "opredelyaemdiapazon

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

Задайте sheetNoviy = Sheets.Add (, Sheets (Sheets.Count)) "opredelyaemnovyylist

sheetNoviy.Range ( «A2»). Resize (Perviy, 5) .Value = sheetActive.Range ( «A2»). Resize (Perviy, 5) .Value

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

sheetActive.Range ( «А» Perviy + 2) .Resize (Vsego - Perviy, 5) delimtablitsu .Value "

Изпълнете макро може да бъде от списък с макро (макро книга) или да го възложи на активния елемент, като например бутон или отметка.