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

Не сильно в VBA, но этот макрос настроен на копирование с листа (с остановкой на пустое значение) и вставку на другой лист после последнего набора значений, работает хорошо.

Проблема в том, что мне нужно изменить диапазон копирования на этот ws.Range («AF3: AQ» и LastRow). Копия

При этом копируются только первые 3 строки, затем останавливается,Я могу зафиксировать диапазон до AF3: AQ59, но затем он включает пробелы, что не идеально.Любая помощь будет принята с благодарностью.

С уважением

Sub DBMeters()
  Dim ws As Worksheet, ws1 As Worksheet
  Dim LastRow, LRow As Long
  Set ws = Sheets("DB_Sort")
  Set ws1 = Sheets("DB Input")
  LastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
  LRow = ws1.Cells(Rows.Count, 1).End(xlUp).Row

  ws.Range("A3:L" & LastRow).Copy
  ws1.Range("A" & LRow + 1).PasteSpecial xlPasteValues
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...