Excel макрос снять выделение

Программно копирую диапазон …
Range(«B13:L13»).Copy
Range(«N13»).Select
ActiveSheet.Paste

После этого остается выделенным «пунктирной рамкой копирования» диапазон B13:L13
и просто выделенным диапазон, куда копировали.
Как снять эти выделения. При ручном способе достаточно нажать ESC.

Так как правильно сделать, программно посылать ESC или еще как-то?

Избавиться о пунктирной линии можно, если использовать, например :

Хотя в Вашем случае достаточно просто использовать :

Range("B13:L13").Copy Destination:=Range("N13")
' Or
Range("B13:L13").Copy Range("N13")

P.S. Если параметры форматирования ячеек копировать не надо, то от применения метода .Copy можно отказаться.

pashulka,
Ваши варианты копирования диапазонов я взял на вооружение,

Application.CutCopyMode = False — у меня работает только когда его устанавливаешь в конце всех операций,
почему-то при автоматической записи макроса, Excel ставит ее перед командой Copy, и функция не работает.

Sub Макрос1()
‘ Макрос1 Макрос
‘ Макрос записан 10.11.2005 (HomePC)

Range(«B5:B12»).Select
Application.CutCopyMode = False
Selection.Copy
Range(«G5»).Select
ActiveSheet.Paste
End Sub

А можно ли упростить код для случая копирования только формата диапазона?
Мой исходный вариант:

Range(«B13:L23»).Copy
Range(«N13»).Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False

Устанавливать значение свойства .CutCopyMode действительно необходимо после применения метода .Copy

Что касается копирования форматов ячеек, то могу предложить вот этот вариант :

Range("B13:L23").Copy
Range("N13").PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False

' Or

With Application
     .Range("B13:L23").Copy
     .Range("N13").PasteSpecial Paste:=xlFormats
     .CutCopyMode = False
End With

Спасибо,
устраняется как я понял лишнее действие выделения диапазона,
и лишние операнды в функции PasteSpecial также можно опустить.
Вот какой заботливый редактор записи макросов

А снятие обычного выделения с конечного диапазона после завершения копирования я решил простым выделение одной из ячеек, например Range(«A1»).Select.

заботливый редактор записи макросов

Он просто повторяет то что делаешь ты — максимально точно Любой клик в ячейки — он отметит select’ом
А уж ты, как программер, лезешь в доки и хелпы и убираешь лишнее

Select any cell and turn off CutCopy:

  Range("A1").Select
  Application.CutCopyMode = False

CharlieRBCharlieRB

22.5k5 gold badges55 silver badges104 bronze badges

answered Sep 4, 2014 at 13:06

The only answer is to cheat.

Hide column A and row 1

Put cursor in A1. There will be a tiny dot in the corner of B2

answered Sep 5, 2012 at 17:56

By turning off screen updating before selecting a cell, scroll to selected cells is temporarily disabled.

This code checks which cells are currently visible and selects the first cell below the visible range which is not in view.
Eg, when i try it: Visble range is A1:BC79, so this code selects A80 and scrolling down and to the right and running it again reveals the excel chooses the first cell NOT visible below the first visible column.

Dim r As Range
Application.ScreenUpdating = False
Set r = Application.ActiveWindow.VisibleRange
r(r.Cells.Count + 1).Select
Application.ScreenUpdating = True

JoostJoost

1501 gold badge2 silver badges8 bronze badges

answered Nov 5, 2020 at 10:32

answered Oct 11, 2016 at 16:29

You can simply select another cell.

for eg:

Sheets("Sheetname").cells(1,1).select

This will select the a1 cell.

answered Aug 1, 2022 at 13:54