Скопируйте и вставьте специальные данные только для одного столбца, а не для диапазона - PullRequest
0 голосов
/ 13 апреля 2019

У меня есть лист с двумя разными листами. 1-й лист называется Ручной поиск, а 2-й лист называется GT #. В листе GT # я хочу иметь возможность копировать данные в столбце H из H6 в последнюю строку в этом столбце, в которой есть данные, и вставлять специальные данные в первую свободную строку в столбце C на листе Manual Lookup. Столбец H на листе GT # содержит формулу в каждой ячейке, чтобы вытащить правильные данные из столбца A и правильно отобразить число.

У меня есть код, настроенный для копирования и вставки информации, но это диапазон. Проблема заключается в диапазоне, он вытягивает эти пустые ячейки в столбце GT # H и приводит к тому, что моя программа на листе Manual Loopkup перестает работать. Мне нужны только данные в столбце H, которые были преобразованы из столбца A. Причиной также не поможет диапазон, в котором иногда может быть передано 700 номеров, а иногда более 2000. Мне просто нужен способ только для данных в столбце H6 и вниз с данными, которые будут скопированы и вставлены в первую свободную ячейку в столбце C на листе ручного поиска. Спасибо всем за помощь.

=TRIM(RIGHT(SUBSTITUTE(A1,",",REPT(" ",LEN(A1))),LEN(A1)))
Sub COPYPASTER()
  Sheets("GT#").Range("H6:H1200").Copy
  Sheets("Manual Lookup").Cells(Rows.Count, "C").End(xlUp).Offset(1). _
    PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks:=False
  Application.CutCopyMode = False
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...