我经常复制和粘贴公式,所以我写了一个简短的宏给我一个键盘快捷键:
Sub PasteFormula()
' Keyboard Shortcut: Ctrl+Shift+F
Dim TargetRange As Range
If Application.CutCopyMode Then
Set TargetRange = Application.ActiveWindow.Selection
TargetRange.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
End Sub
它的工作原理与所期望的一样,具有不希望的特性。以下是如何创建MWE:
该宏将起作用 - 第一个单元格中的公式将作为公式复制到第二个单元格中。但是,第一个窗口“Book1:1”更改为显示Sheet2。如何在不更改主窗口中的工作表的情况下使用VBA在辅助窗口中运行PasteSpecial?
发布于 2018-06-29 10:30:26
在End If和End之间插入以下内容:
'Return to Book1:1 Sheets("Book1:1").Activate
https://stackoverflow.com/questions/-100004969
复制相似问题