Excel VBA – Как выбрать всю таблицу границ

Я очень новичок в Excel VB. Я надеюсь, что вы сможете помочь с моей проблемой.

У меня есть несколько таблиц, подобных этому это

Таблицы можно редактировать, например, путем добавления новых строк и т. Д. Пользователем.

Я хочу выделить и скопировать последнюю таблицу (одну в последней строке) и вставить ее в следующее свободное место, 3 строки вниз. Мне удалось это сделать, но я могу только выделить и скопировать ячейки с данными. Поэтому, если в середине таблицы есть пустая строка или пустая последняя строка с границами, она не будет копироваться правильно, как показано ниже:

Вот

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

Ниже приведен мой код:

Sub CopyPaste() LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row FirstColumn = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlNext).Column LastColumn = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column BelowLastName = Cells.Find("", After:=Cells(LastRow, FirstColumn), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Row Cells(BelowLastName, FirstColumn).Select 'This selects C5 (refer image) Selection.Offset(-1).Select 'This selects C4 (refer image) Range(Selection, Cells(LastRow, LastColumn)).Select 'This highlights whole table Selection.Copy Cells(LastRow, FirstColumn).Select ActiveCell.Offset(3).Select ActiveSheet.Paste Application.CutCopyMode = False End Sub 

Попробуй это

 Sub x() Dim rEnd As Range, rStart As Range, i As Long Set rEnd = Range("C" & Rows.Count).End(xlUp) Do While rEnd.Offset(i).Borders(xlEdgeBottom).LineStyle = xlContinuous i = i - 1 Loop Set rStart = rEnd.Offset(i + 1) Range(rStart, rEnd).Resize(, 8).Copy rEnd.Offset(3) End Sub 
  • Количество строк в excel
  • Установка диапазона одной таблицы, равной другой
  • VSTO Excel - Как создать диапазон с несколькими областями
  • Проверка диапазона с помощью Excel с помощью C #
  • Код VBA для перемещения ячеек из одного столбца в другой на основе конкретных критериев ячейки
  • Ошибка VBA 424, запись значения в ячейку с использованием свойства «.Value»
  • Использование методов Range и Union из Win32com Python
  • Изменение диапазона в VBA для выбора первой строки таблицы
  • Значение ячейки VBA Excel VBA для формулы
  • Передача диапазона в пользовательскую функцию из ячейки
  • Диапазон (ячейки (... неправильно работают
  • Interesting Posts

    Суммирующий результат формулы, применяемой к строкам

    Сравнение Excel со строковым сопоставлением

    Происходят странные способы сравнения

    Экспорт основных данных со строками и изображениями для Excel

    excel vba object требуется ошибка при копировании из одной книги в другую

    Apache POI Фокусировка на конкретной ячейке в созданном файле excel

    Недопустимая подпись заголовка; IOException с POI Apache в документе excel

    Размер листа листа листа / размер полосы прокрутки листа листа, когда вы слишком далеко вниз по листу

    Excel VBA: Workbook_Open

    Как я могу экспортировать CSV-файл VBA на основе двух переменных в URL-адресе?

    Excel VBA – проблема при вставке изображения в рабочий лист на мероприятии Worksheet_Change

    Excel VB Macro сравнивает значения во всей колонке

    Чтобы скопировать диапазон с одного листа на другой, используя результат, полученный из цикла сравнения

    Сбой макроса VBA Excel при размещении значений в ячейке

    Присвоить код _Изменить метод Combobox

    Давайте будем гением компьютера.