我有一个Excel工作表，其中包含许多条件格式设置规则。当我对另一个工作表执行PasteSpecial操作时，所有格式都会消失。为什么会这样呢？不幸的是，我需要记住所有的规则。我尝试过使用xlPasteFormats，xlPasteAll等，但之后Excel就冻结并挂起了。ActivateSelection.CopyRange("A1").Sel
浏览 29提问于2019-01-25得票数 0
回答已采纳
1回答
当我在代码中使用PasteSpecial xlPasteFormulas时，它复制了所有内容，包括值。但我只想要格式、宽度和公式。wb.Sheets(shtArr(i)).Range("A1").PasteSpecial xlPasteColumnWidths
wb.Sheets(shtArr(i)).Range("A1").PasteSpecialxlPasteFormulas 在第2行和第3行代码中，Yes复制</em
浏览 20提问于2020-08-13得票数 0
回答已采纳
2回答
我很难获得枢轴表格格式来复制到一个新的工作表。基本上我想做的是：someOtherRange.pasteSpecial xlPasteValues
someOtherRange.pasteSpecial xlPasteFormats基本上，我想要一个新工作表中枢轴表上当前视图的精确副本，但我只想要值和格式(而不再连接到透视表)。手工执行此过程会产生正确的结果，但由于某种原因，当我通过vba使用相同的方法时，格式不
浏览 3提问于2012-05-02得票数 3
回答已采纳
此宏复制另一个工作簿中的单元格。如何才能使其只复制格式和值，而不复制公式。Sheets.Add After:=Sheets(Sheets.Count)
Range("A1").PasteSpecial
浏览 3提问于2017-01-30得票数 0
回答已采纳
现在，我这样做是为了将一行从一个工作表复制到另一个工作表，并在最后插入它： Sheets(Name).Range("A" & rows.Count).End(xlUp).Offset(1)
但这不复制任何格式/单元格间距。
浏览 4提问于2014-02-28得票数 1
回答已采纳
2回答
创建和复制新工作表
、、、
这里，我有一个模板表和一个包含formulas.At的表--我想按下一个按钮来创建和复制从模板工作表到新工作表的值，下面是我得到的：Dim xName As Stringafter:=Sheets(Sheets.Count)xNWS.Name = xName问题是，我只想粘贴值，而不使用模板表中的任何公式
浏览 0提问于2019-03-22得票数 0
回答已采纳
我正在使用这段代码来复制和粘贴一些内容： Wsh.Cells(1).PasteSpecial Paste:=xlPasteAll但是，当它粘贴时，它会丢失
浏览 0提问于2018-06-28得票数 0
回答已采纳
我想把thisChart从excel文件复制到ppt文件。现在我知道了两种方法，即VBA和python(使用win32com.client)。我使用了以下脚本来完成此操作。 PPTSlide.Shapes.PasteSpecial(DataTypePPTPresentation.SaveAs(r"C:\Users\p
浏览 305提问于2020-02-28得票数 1
我是vba的新手，所以请温文尔雅:)
我已经检查了各种脚本，这些脚本在使用ctrl、c/ctrl、v或复制和粘贴时，应该保留电子表格中单元格的格式。不幸的是，我似乎无法让任何变体为我的意图工作。我想这可能是因为被复制和粘贴的许多数据是从其他程序复制并粘贴到工作表中的(因此复制并保留了它所来自的程序的格式)。当在单元格/工作表或工作簿之间复制时，我尝试使用的所有宏似乎都试图保留<e
浏览 0提问于2013-05-18得票数 0
回答已采纳
我希望能够使用VBA将粘贴对象指定的宏复制到另一个工作表中。 WshTrg.Cells.PasteSpecial xlPasteColumnWidthsWshTrg.Cells.PasteSpecial xlPasteFormulasAndNumberFormats
浏览 0提问于2019-10-03得票数 0
1回答
问题是要将复制的范围粘贴到另一个原始格式的工作表中(e.g.source列宽度到目标列)。例如，通过编写".PasteSpecial xlPasteColumnWidths“仅不会产生复制的值。With wq.Sheets("Table 5").Range("A1:W51").Copy .PasteSpecial xlPasteColumnWidth
浏览 0提问于2018-11-05得票数 0
回答已采纳
3回答
我一直在使用一小块VBA，我面临着一个问题。Sub CopyBoldText()Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrBelowActiveSheet.UsedRange)Next c我的问题是，A列中的值是数字，
浏览 6提问于2017-09-27得票数 0
回答已采纳
我需要修改一个宏，在这个宏中，内容从一个工作表复制到另一个工作表，但这里只复制值，而我想同时复制单元格格式。我已经在许多论坛上搜索过，并试图复制他们的格式，但仍然没有成功。我尝试使用以下代码，但无济于事： Cells(9, 1).Select
Selection.PasteSpecial Paste:=xlPasteFormats:=xlNone, SkipBlanks:=False, Tran
浏览 5提问于2017-12-05得票数 0
2回答
我试图将数据从透视表复制到新的工作表，作为vba中的通用数据。我想保留透视表的格式(子项的制表符分隔符，组的粗体字体等等)。当我手动复制透视表并将其粘贴到“Value&”按钮时，它是正确工作的。当我记录上面描述的函数宏时，我得到以下代码： Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False,
浏览 4提问于2020-06-20得票数 0
回答已采纳
2回答
要求剪贴板内容的VB？
、、、、
我对VB PasteSpecial有问题。, Operation:=xlNone, SkipBlanks:= _Application.CutCopyMode = FalseSelection.Copy
但是，由于我不首先从文档中复制任何内容(即使复制内存中有表数据)，
浏览 7提问于2012-04-26得票数 1
1回答
我使用“格式单元格”向单元格(如A1)添加了底部边框：如果以编程方式捕获单元格A2的格式，则可以将单元格A1的底部边框捕获为单元格A2的顶部边框。这不是在本机"Format Painter“中发生的情况，在这种情况下，将A2格式复制到其他单元格并不会向目标单元格添加任何边框--我试图用代码复制这种行为。
如何做到这一点？
浏览 0提问于2012-10-25得票数 2
我要将Excel区域复制并粘贴到PowerPoint幻灯片中。该范围具有条件格式、数字格式和边框格式。这就是我所拥有的：mobjPowerPointSlide.Shapes.PasteSpecial 0mobjPowerPointSlide.Shapes.PasteSpecial 2
它打
浏览 3提问于2018-08-11得票数 0
我看过几个关于从一个excel工作簿复制粘贴到另一个的代码。由于某些原因，我甚至在直接复制格式时也会遇到错误。到目前为止，我的代码只有12行，所以如果您可以查看并了解问题所在，这将对我有很大的帮助。Then
Set wb = Workbooks.Open("Book1")End S
浏览 0提问于2016-05-27得票数 1
然后，我有另一个子例程，它复制返回的值，并将它们放在另一个已经布置了标题的工作表中，然后另一个子例程将签名块添加到底部。当所有这些都完成时，用户将此工作表的副本重新命名为其适用的月份和年份。问题是，当刷新工作簿数据以创建新报告时，所有已格式化和已完成的报告的先前副本突然包含已删除的行。我不明白被删除的行是如何返回到不同工作表上的报表的，但是下面是我用来完成这个任务的VBA。(此后，我将其设置为在更新数据时自动运行，但得到的结果与此相同)
希望有人能帮忙，谢谢你提前帮忙。.Rows(i).EntireRow
浏览 2提问于2015-02-03得票数 1
回答已采纳
按下按钮后，我有一个VBA宏，它从我的活动工作表复制信息，打开一个新的工作簿，并将复制的数据粘贴到"sheet1“中。当我使用"ActiveSheet.Paste“命令时，所有的文本和图形都会被复制过来，但列宽却不会。当我使用"PasteSpecial“时，文本和适当的列宽都会转换，但图形都不会。请看下面的代码： 下面的代码复制了所有的文本和图形，但是没有粘贴列宽，所以
浏览 28提问于2019-02-01得票数 0
回答已采纳
云服务器
ICP备案
腾讯会议
云直播
对象存储
腾讯云开发者
