首页
学习
活动
专区
工具
TVP
发布
社区首页 >问答首页 >PasteSpecial在辅助Excel窗口中更改主窗口中的工作表?

PasteSpecial在辅助Excel窗口中更改主窗口中的工作表?
EN

Stack Overflow用户
提问于 2018-06-29 00:47:52
回答 1查看 0关注 0票数 0

我经常复制和粘贴公式,所以我写了一个简短的宏给我一个键盘快捷键:

代码语言:javascript
复制
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:

  1. 打开一个新的工作簿Book1.xlsb。将上面的VBA复制到模块中,并链接键盘快捷键Ctrl + Shift + F。
  2. 使用视图 - >窗口 - >新窗口来创建第二个窗口,以便窗口的标题是“Book1:1”和“Book1:2”。
  3. 在“Book1:2”窗口中创建第二张工作表“Sheet2”并打开该工作表。在某个单元格中键入内容,复制它,在同一窗口中转到另一个单元格,然后按Ctrl + Shift + F。

该宏将起作用 - 第一个单元格中的公式将作为公式复制到第二个单元格中。但是,第一个窗口“Book1:1”更改为显示Sheet2。如何在不更改主窗口中的工作表的情况下使用VBA在辅助窗口中运行PasteSpecial?

EN

回答 1

Stack Overflow用户

发布于 2018-06-29 10:30:26

在End If和End之间插入以下内容: 'Return to Book1:1 Sheets("Book1:1").Activate

票数 0
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/-100004969

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档