Код для копирования данных в пределах диапазона в блокнот - PullRequest
0 голосов
/ 02 марта 2019

Я не понимаю кодирование, я пробовал, но это просто не имеет смысла для меня.Большое уважение всем, кто может выучить и понять этот сложный другой язык.Если кто-нибудь из вас может помочь, я был бы признателен.

Я подозреваю, что эту простую проблему решить ...

У меня есть диапазон ячеек A1: E30 в ячейкахв столбцах B и C в этом диапазоне данные вводятся с помощью раскрывающихся списков, когда определенные данные вводятся в эти ячейки, информация автоматически вводится в столбцы A и E в одной строке.Не все ячейки в диапазоне будут содержать данные.

Мне нужна командная кнопка, которая при нажатии копирует только ячейки в этом диапазоне, содержащие текст, а затем вставляет этот текст в блокнот, без каких-либо пустыхи сохраняя соответствующие ячейки рядом друг с другом.

Я могу сделать самое простое:

Range("A1:E30").Copy
Shell"notepad.exe",VbNormalFocus
Sendkeys"^V"

Код копирует весь диапазон, но это включает пустые строки.

Есть ли способ сделать то, что мне нужно?

Любая помощь будет наиболее ценной.

1 Ответ

0 голосов
/ 02 марта 2019

Если пустые строки находятся внутри блока данных, вы можете отсортировать их перед копированием.Если пустые строки находятся в конце, вы можете найти последнюю строку данных перед копированием и копировать только данные.

LastRow=Cells(Rows.Count,1).End(xlup).Row
Range("A1:E" & LastRow).Copy
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...