Копирование данных, пропускающих пробелы

Question

Добрый день, может кто-нибудь, пожалуйста, помогите мне. У меня есть 2 таблицы, вторая таблица имеет скопированные ячейки точно так же, как и первая. Но моя проблема заключается в том, что на первой электронной таблице у меня есть пустые строки, так как счета-фактуры вводятся в порядке дат, а не счета-фактуры на каждый день. Второй лист, который я использую для целей Vat, и хочу, чтобы мой выбор там был в форме списка, чтобы печатать только 1 страницу для бухгалтера. Если у меня есть счета-фактуры, например. на 10-й, 15-й и 20-й на первой электронной таблице «какую формулу я могу использовать для 3 счетов-фактур, которые будут отображаться во второй электронной таблице, например, в строке 1,2,3, одна справа под другой.

Я сделал VBA 20 лет назад, и пришел со всем, кроме этого, я не могу понять всю свою жизнь. Спасибо заранее всем, кто может мне помочь.

Answer 1

выделить, нажать F5, нажать «специальные», выбрать «константы», или «формулы» в зависимости от того, является ли это жестко запрограммированным или формульным данным, затем нажмите «ОК», это оставит все пустые ячейки вне выделения, а затем скопирует пасту как обычно в другую книгу. Если вы делаете это в vba, все это доступно в объектная модель как

Selection.SpecialCells(xlCellTypeConstants, 23).Select 
Selection.SpecialCells(xlCellTypeFormulas, 23).Select 

ОБНОВЛЕНИЕ: Я забыл про ошибку (дефект дизайна?) В excel, что делает ее ошибкой при попытке скопировать непрямоугольный выбор. Смотрите здесь (статья старше, но, как представляется, относятся к 2013 году):

http://support.microsoft.com/kb/100715

Я считаю, что есть макросы, доступные в Интернете, чтобы справиться с этой проблемой, один из них находится здесь

http://www.extendoffice.com/documents/excel/799-excel-copy-multiple-selections.html

Быстрое исправление заключается в использовании обратного подхода: используйте «специальный» выбор для выбора пробелов, а затем удалите их. затем выберите прямоугольник вокруг остальных ячеек.

вызов VBA для выбора заготовок

Selection.SpecialCells(xlCellTypeBlanks, 23).Select