Note: The other languages of the website are Google-translated. Back to English

Как скопировать в Excel только границы выделенного диапазона?

При использовании Microsoft Excel легко копировать только значения ячеек, форматирование ячеек, формулы ячеек и т. Д. Из диапазона с помощью специальной функции «Вставить». Но пробовали ли вы когда-нибудь скопировать только стиль границы из диапазона в Excel? В этой статье будет показан метод копирования только границ выделенного диапазона в новый диапазон в Excel.

Копировать только границы выделенного диапазона с кодом VBA


Копировать только границы выделенного диапазона с кодом VBA

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

1. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули, а затем скопируйте и вставьте приведенный ниже код VBA в окно кода.

Код VBA: копировать только границы выбранного диапазона в Excel

Sub CopyBorders()
'Updated by Extendoffice 20211203
    Dim xRg, yRg As Range
    On Error Resume Next
    
    Set xRg = Application.InputBox("Select Range with Borders to Copy...", "Kutools For Excel", , , , , , 8)
    Set yRg = Application.InputBox("Select Cell to Apply Borders to range..", "Kutools For Excel", , , , , , 8)
    
    
    With yRg.Borders(xlEdgeLeft)
        .LineStyle = xRg.Borders(xlEdgeLeft).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeLeft).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeLeft).TintAndShade
        .Weight = xRg.Borders(xlEdgeLeft).Weight

    End With
    With yRg.Borders(xlEdgeTop)
        .LineStyle = xRg.Borders(xlEdgeTop).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeTop).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeTop).TintAndShade
        .Weight = xRg.Borders(xlEdgeTop).Weight
    End With
    With yRg.Borders(xlEdgeBottom)
        .LineStyle = xRg.Borders(xlEdgeBottom).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeBottom).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeBottom).TintAndShade
        .Weight = xRg.Borders(xlEdgeBottom).Weight
    End With
    With yRg.Borders(xlEdgeRight)
        .LineStyle = xRg.Borders(xlEdgeRight).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeRight).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeRight).TintAndShade
        .Weight = xRg.Borders(xlEdgeRight).Weight
    End With

    With yRg.Borders(xlInsideHorizontal)
        .LineStyle = xRg.Borders(xlInsideHorizontal).LineStyle
        .ColorIndex = xRg.Borders(xlInsideHorizontal).ColorIndex
        .TintAndShade = xRg.Borders(xlInsideHorizontal).TintAndShade
        .Weight = xRg.Borders(xlInsideHorizontal).Weight
    End With
    With yRg.Borders(xlInsideVertical)
        .LineStyle = xRg.Borders(xlInsideVertical).LineStyle
        .ColorIndex = xRg.Borders(xlInsideVertical).ColorIndex
        .TintAndShade = xRg.Borders(xlInsideVertical).TintAndShade
        .Weight = xRg.Borders(xlInsideVertical).Weight
    End With
End Sub

3. нажмите F5 ключ для запуска кода. При первом появлении Kutools for Excel диалоговом окне выберите диапазон с границами, которые необходимо скопировать, а затем щелкните OK кнопку.

4. В секунду Kutools for Excel диалоговом окне выберите ячейку для применения скопированной границы, затем щелкните OK кнопка. Смотрите скриншот:

Затем вы можете видеть, что только стиль границы выбранного диапазона копируется и применяется к новому диапазону, как показано ниже.


Статьи по теме:


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (6)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Код также скопировал мои числовые форматы и перезаписал форматы в целевых ячейках. Возможно, я сделал что-то не так?
Этот комментарий был сведен к минимуму модератором на сайте
Привет Давид,
В моем случае код копирует только границы в целевые ячейки. Не подскажете вашу версию Excel? Спасибо за ваш комментарий.
Этот комментарий был сведен к минимуму модератором на сайте
Привет кристалл,
Я знаю, что прошло больше года, но из-за переноса моей системы электронной почты ваш вопрос поднялся на первое место в моем почтовом ящике.
Моя версия Excel - 2016 16.0.4993.1001, как сообщается в разделе «Учетная запись»> «О программе».
Этот комментарий был сведен к минимуму модератором на сайте
Привет Давид,
Рад получить ваш ответ. Я протестировал код в своем Excel 2016, но он по-прежнему копирует только границу. Не могли бы вы отправить копию своих данных на адрес zxm@addin99.com? Приносим извинения за доставленные неудобства.
Этот комментарий был сведен к минимуму модератором на сайте
Привет

Děkuji za pomoc s kopírováním pouze ohraničení.
Сло по
Благодарю вас.
Ирка
Этот комментарий был сведен к минимуму модератором на сайте
Hola me gusto mucho al macro para copiar los Bordes, pero al copiar los bordes me borra el formato que tienen las celtas es decir borra colores y otros formatos que ya tiene la celda. мне puedes ayudar кон уна макрос дие мне позвольте копиар лос бордес де otra celta a otra грех borrar эль формат дие tiene ла celda де дестино?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL