Tag: 复制粘贴

VBA复制和粘贴方法不起作用: 我正在试图写一个简单的复制和粘贴macros，它的工作，直到最后一行。当它碰到最后一行时，它说粘贴function将不起作用。我真的很困惑，为什么发生这种情况，任何帮助将不胜感激。 Sheet2.Columns("A:B").Insert Shift:=xlToRight Sheet2.Columns("F:G").Cut Sheet2.Activate Columns("A:B").Select ActiveSheet.Paste Sheets("SourceData").Columns("A:B").Insert Shift:=xlToRight Sheets("SourceData").Activate Columns("A:B").Select ActiveSheet.Paste <-LINE THAT THROWS ERROR 我的错误消息是Paste Method of Worksheet Class failed

vba代码中有多个表单对象错误: 我遇到了一个“运行时错误1004”的问题：应用程序定义的错误或对象定义的错误。如果if语句不能识别正在比较的对象之一，请帮助我理解我做错了什么。 Sub Enter_deposits() Sheets("Deposits").Activate Dim x As Integer Dim y As Integer For x = 4 To 21 For y = 10 To 500 If Sheets("deposits").Range(2, 4).Value = Sheets((Cells(x, 14).Value)).Range(y, 2).Value _ And Sheets((Cells(x, 14).Value)).Range(y – 1, 3) = 0 _ And Sheets("deposits").Range(x, 15).Value <> Sheets((Cells(x, 14).Value)).Range(y, 3) Then Sheets("deposits").Range(x, 15).Copy Sheets((Cells(x, 14).Value)).Range(y, 3).PasteSpecial xlPasteValues […]

将值粘贴到dynamic范围excel vba中: 我正在编写一个脚本，用于在数据库中启用search，将search查询的结果显示在另一个工作表（我将其命名为Results）中，以便用户无法同时访问整个数据库。为了做到这一点，我想将“数据库”工作表中的值复制到“结果”工作表中。就任何特定的search标准而言，我已经成功地从“数据库”中select了正确的数据。我用下面的代码做了这个： With Sheets("Database") .Range(.Cells(i, 1), .Cells(i, 9)).Copy End With 现在我要将结果粘贴到“结果”电子表格中，并通过编写以下内容来完成： Sheets("Results").Range("B600").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats 通过这样做，我不太明白：如果我已经严格定义了第一个空行和B600之间的粘贴范围，如果我只是定义了粘贴范围的开始，并且在search结果超过第600行的情况下，它们仍然粘贴在此行之后。我这样问，因为随着数据库的增长，我肯定需要保证一个比B600更大的粘贴范围。我已经研究过，但似乎无法完全确定我所做的事情。我必须说，我知道“结果”数据库中的第一个空行将始终是12.在这种情况下，我知道我基本上想粘贴从第12行的search结果。也许有一个更直接的方法来做到这一点。这是整个代码，供参考： Private Sub SearchButton_Click() 'This is the search function '1. declare variables '2. clear old search results '3. Find records that match criteria and paste them Dim country As String Dim Category […]

Excel 2010 – 从不同工作簿复制粘贴而不是相邻单元格时出现错误: 我注意到在Excel 2010 v14.0.7106.5001（32位）中可能存在一个错误。当在工作簿“BookA.xlsx”中复制粘贴两个不相邻的单元格（假设A1和C1）并将其粘贴到第二个工作簿中的另一个Excel实例（“BookB.xlsx”）中时，程序不仅粘贴两个我select的单元格，还有A1和C1之间的单元格（来自“BookA.xlsx”的单元格B1）。这是MS Excel的一个已知的错误吗？有什么办法可以解决它吗？

Excel VBAdebugging：循环不search整个范围: 我写了一个基本的macros来search一个范围（在一张纸上），然后根据保存select值的第三张纸复制选定的单元格（到另一张纸）。我已经使用循环，因为我= X到Y BU它看起来像macros正在跳过一些行！???！即，如果在行1到4中有4个有效值要复制，则macros只复制行2和4中的值（将有效单元1和3开沟）。代码如下： Sub XXXXX() Dim i As Integer Dim PasteSheet As Worksheet: Set PasteSheet = Sheets("Sheet1") Dim CopySheet As Worksheet: Set CopySheet = Sheets("Sheet2") Dim SearchSheet As Worksheet: Set SearchSheet = Sheets("Sheet3") Dim LookupID, LookupID_SearchRange, CopyValueID, CopyValueID_Paste As Range For i = 7 To 2000 'I've also used the (Step 1) […]

search特定的列标题，复制列并粘贴到另一个工作簿: 如何将这些列标题名称“TOOL CUTTER”和“HOLDER”复制到列表（只有数据），然后将其粘贴到另一个工作簿表单中，其中VBA代码（Sheet Module）是。谢谢。 "If Sht <> "masterfile.xls" Then是问题发生的地方，我从另一个在线源获得帮助If ws.name <> me.name Then显然我打算在这里放一个不同的名字但我无法弄清楚什么。不需要成为这种解决方法，这正是我目前所拥有的。我打开多个文件，这就是为什么我主要使用ActiveSheet方法而不是Sheet1 Sheet2。我的代码所在的文件被称为“masterfile.xls” 任何帮助是极大的赞赏！！先前的代码大纲帮助在这里find： search特定的列标题名称，复制列和粘贴到追加到另一个wookbooksheet Sub LoopThroughDirectory() Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim MyFolder As String Dim Sht As Worksheet Dim i As Integer Dim LastRow As Integer, erow As Integer 'Speed up […]

复制工作簿中的列，粘贴第二个工作簿的第二个工作表openPyXL: 我是新来的openpyxl和开发一个工具，需要复制和粘贴列。我有一个包含两套excel文件的文件夹。我需要脚本遍历这些文件，find名为“GenLU_xx”（xx代表卡尔加里等地名称）的文件，然后复制Columns C＆E（3＆5）。然后需要find名为“LU_Summary_xx”的相应文件（xx再次表示卡尔加里等地方的名称），并将复制的列粘贴到该工作簿的第二个工作表中。它需要匹配GenLU_Calgary和LUZ_Summary_Calgary等所有文件。到目前为止，我还没有能够找出复制和粘贴列的代码，看似双倍的迭代让我感到困惑。我的Python技能是初学者，虽然我通常可以通过查看例子来找出代码。在这种情况下，我在定位示例代码时遇到了一些问题。刚开始使用openpyxl。除了excel相关的部分，我已经完成了脚本。希望有人可以帮忙。任何帮助将非常感激！编辑：新到StackOverflow以及所以不知道为什么我得到-2。也许是由于缺less任何代码？这是我到目前为止： import os, openpyxl, glob from openpyxl import Workbook Tables = r"path" os.chdir(Tables) for file in glob.glob ("LUZ*"): wb = openpyxl.load_workbook(file) ws = wb.active ws ["G1"] = "GEN_LU_ZN" wb.create_sheet(title="Sheet2") wb.save(file) 这只是给每个以LUZ开头的文件的G1添加一个值，并创build第二个表单。正如我前面提到的，我还没有找出复制整个列的值的代码。我想我可以迭代通过使用glob的“GenLU *”开始的所有文件，然后存储列3和5的值，但我仍然无法找出如何访问列的值。我没有一个范围的行，因为每个工作簿将有两列不同的行数。编辑2：我能够使用此代码访问特定列的单元格值： for file in glob.glob […]

我如何防止粘贴到多列？: 我对VBA很新，而且我遇到了一个奇怪的问题，下面的代码片断。我的目标是当用户将数据手动粘贴到表中时插入行。用户手动复制表格的一部分（假设列A1到C25 – 保持graphicsD和E不变），当手动粘贴到A26时，插入行。这样，表就会展开以适合数据（因为表中有更多的内容）。现在，下面显示的代码确实工作，我唯一的问题是，在列（A到C）的粘贴数据在所有列（D到F，G到I等）上重复。如何防止这个粘贴的数据覆盖我插入的行上的其他列（并从“永远”继续） ' When cells are pasted, insert # of rows to paste in Dim lastAction As String ' If a Paste action was the last event in the Undo list lastAction = Application.CommandBars("Standard").Controls("&Undo").List(1) If Left(lastAction, 5) = "Paste" Then ' Get the amount that was pasted (table didn't […]

Excel复制和粘贴，同时保持数据validation: 当我执行复制并从空白单元格粘贴到具有数据和validation的单元格时，目标单元格中的validation将被删除。有反正我可以维持在目标单元格中的validation，而只粘贴的价值？（并validation粘贴的内容）（另外，因此我问这个问题的原因，我不允许使用“粘贴特殊”function，所以需要一个解决方法）

在Windows中复制阿拉伯文字: 我已经在Microsoft Excel中翻译了阿拉伯语的内容。每当我复制到Polylang阿拉伯语支持我的WordPress的网站，字母得到这样搞砸了： الهاتف（اختياري）虽然原文是这样的：我在Office 2010中使用Windows 7，这适用于我要复制到的每个应用程序。我已经安装了Windows的阿拉伯语支持，并尝试复制和粘贴阿拉伯语键盘以及英语。没有运气。有没有办法做到这一点？