Обединяване на 2 таблици

3 отговора 248 прегледа
#1

Обединяване на 2 таблици

Здравейте знаещи,
Имам проблем, по който се надявам да получа съвет. Имам 2 екселски файла с еднотипни таблици, които искам да обединя. За целта копирам едната таблица, отивам в последния ред на другата и давам "Paste". Въпросът е как да копирам първата таблица, като се има в предвид, че не знам от колко реда е? За момента го постигнах като отидох в първия ред и пуснах курсора да слиза ред по ред докато стигне до стойност "" и така установявам от колко реда е таблицата, но сигурно има и по-лесен начин.

Отговор
в отговор на pgh #2

Re: Обединяване на 2 таблици

До колкото разбирам става въпрос как да определиш последния ред във VBA ако е така пробвай със следния код

ActiveCell.SpecialCells(xlLastCell).Select

Go Install Analysis Toolpack!
Отговор
в отговор на pgh #3

Re: Обединяване на 2 таблици

има няколко варианта.
1. Отиваш в най-горната и най-лява клетка на таблицата, която копираш. След това: Shift+Ctrl+End. По този начин отиваш до края на шийта. Върши работа, ако след таблицата нямаш нищо друго в шийта. Но ако имаш още двайсет, трийсет, петдесет, сто реда - не е много ефективно
2. Ако таблицата ти е непрекъсната област, т.е. ако между колоните и редовете нямаш празни колони/редове. Тогава заставаш някъде (където и да е) в таблицата и натискаш Ctrl+* (звездичка). Това маркира цялата таблица. Искам да уточня, че ако в някой ред или колона имаш празни клетки, това пак върши работа. Но ако имаш цяла колона или ред - не
3. С комбинацията от клавиши Shift+Ctrl+стрелка маркираш всички клетки до края на областта, в която се намираш. то е същото като това, което правиш в момента, само че много по-бързо.

Пробвай ги тези номера и ако има проблем - пиши, защото е много по-лесно да се покаже, отколкото да се напише и не знам доколко добре съм го написал

Дудек маха, кляка, прави чудеса от храброст...
Отговор
в отговор на pgh #4

Re: Обединяване на 2 таблици

Много Ви благодаря за съдействието момчета,
кода на алекс ми свърши чудесна работа. Само малко го преправих ето така:

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy

Това ми маркира цялата таблица без да се налага да указвам от колко реда е.


Отговор