Tag: 粘贴

创build新的工作簿并复制/粘贴。更快的解决scheme？: 目前下面的代码工作正常，但是原来的“filelocation1”暂时打开，最终用户在一秒钟之内就可以看到它。有没有办法做同样的事情，但它运行得更快和/或可能永远不会打开原来的工作簿？ vba： Private Sub CommandButton1_Click() Dim wbI As Workbook, wbO As Workbook Dim wsI As Worksheet, wsO As Worksheet Dim filelocation1 As String Dim filelocation2 As String filelocation1 = Environ("USERPROFILE") & "\Desktop" & "\" & Format(Date, "ddmmyyyy") & ".xls" filelocation2 = "\\file\nextfile\fileafterthat\etc" & "\" & Format(Date, "ddmmyyyy") & Application.UserName & ".xls" Set wbI = […]

VBA – Excel + Word集成 – 没有理由的代码循环: 我正在创build一个Excel文档，其中包括将几个数据数组复制到一个Word文件中。一切工作绝对正常，除了粘贴我感兴趣的select，它将无限粘贴，直到我介入通过任务pipe理器取下Word。就我所知，没有理由让它循环。所以我对接下来要做的事情一无所知，而且我希望你们能够清楚我做错了什么。这个概念如下： Sub TestA() 'Word objects. Dim wdApp As Word.Application Dim wdDoc As Word.Document Dim wdbmRange As Word.Range 'Excel objects. Dim wbBook As Workbook Dim wsSheet As Worksheet Dim rnReport As Range 'Opening app and document Set wdApp = New Word.Application Set wdDoc = wdApp.Documents.Open("C:\Users\RCO1\Desktop\Teste VBA\2. Conceptual Testing\Export\XLWDTST.docx") Set wdbmRange = wdDoc.Bookmarks("TableInsertion").Range […]

将工作表复制到另一个工作簿，但工作表也保存在一个新的工作簿中: 我需要将工作表从一个工作簿复制到另一个（现有的）工作簿。它工作，但工作表也自动保存在一个新的工作簿。我不知道这是为什么。这是我的代码： Worksheets("New").Activate If IsSheetEmpty(StartWorkbook.Sheets("New")) = True Then Application.DisplayAlerts = False Worksheets("New").Delete OLDWorkbook.Activate Sheets("sheet1").Select Sheets("sheet1").Copy Sheets("sheet1").Copy After:=StartWorkbook.Sheets("Control") StartWorkbook.Activate Sheets("sheet1").Name = "New" OLD.Close Application.DisplayAlerts = True Else MsgBox ("sheet is not empty") End If 提前致谢

Excel VBAmacros – 复制单元格和粘贴值到活动单元格范围: 我遇到了这个Excelmacros的一些问题，因为我很新。我想采取各种单元格，复制它们，然后将其值粘贴到活动单元格和它下面的单元格。例如，我已经select了单元格D2。当我运行macros时，我想要复制的值是A1，B4和C3。当我运行macros，我想要这些单元格的值分别粘贴到单元格D2，D3和D4。任何帮助这个代码将不胜感激！

将剪贴板粘贴到新的工作簿VBAmacros: 我试图循环浏览文件夹中的文件，从每个文件复制未知大小的数据，并将它们全部粘贴到一个新的工作簿中。我似乎无法得到剪贴板粘贴正确，因为它总是给我一个运行时错误9，下标超出范围。 Sub LoopThroughFiles() Dim StrFile As String StrFile = Dir("filepath") Dim wb As Excel.Workbook Dim itemized As Excel.Workbook Dim dump As Excel.Workbook Do While Len(StrFile) > 0 MsgBox StrFile Set dump = Workbooks.Open("dump.xlsx") Set wb = Workbooks.Open("StrFile") Set wb = ActiveWorkbook Worksheets("DATA2").Visible = True Worksheets("DATA2").Activate Application.Goto Reference:="R1C1:R98C1" Selection.EntireRow.Delete Range("A1").Select ActiveCell.CurrentRegion.Select Selection.Copy Application.Wait DateAdd("s", 1, […]

如何复制粘贴和连接Excel列与VBScript？: 我正在玩vbscript，如何让我的生活更轻松。现在我想运行一个打开excel文件的脚本。将C列（未知行长度）复制到B列，并将其连接到某些东西。例： ——————- ||| A | B | C | ——————- |1|ONE | ANY | 11 | |2|TWO | ANY | 42 | |3|FOUR| ANY | 96 | |4|SIX | ANY | 42 | ——————- 为此： ||| A | B | C | ——————- |1|ONE |*11* | 11 | |2|TWO |*42* | 42 […]

Excel VBA – 从工作簿中的某个工作表中复制范围从一个工作表粘贴到所有工作表: 我觉得这太简单了，但我有一个约100页的工作簿，我需要复制范围从一张（Sheet2范围A1：H200）到Sheet5 AF1：AM200和每页后（Sheet5通过Sheet100或更多）。我已经尝试创build一个循环，并复制原始范围和粘贴到每个工作表，但它没有奏效。我觉得这是我得到的最接近的 Sub CopyPasteLoop() Dim wsVar As Worksheet For Each wsVar In ThisWorkbook.Sheets With wsVar ThisWorkbook.Worksheets("Sheet2").Range("A1:H200").Value = ThisWorkbook.Worksheets("Sheet5").Range("AF1").Value End With Next wsVar End Sub 我觉得应该更简单，但我不能使它工作。谢谢！

VBA-在另一个表上复制并粘贴行作为值: 我正在根据单元格值中的条件将行从一个表格移动到另一个表格。如果单元格值被满足，它将移动到另一个工作表。但是，当它移动时，我需要它作为值移动。我的一个单元格中有一个公式，我只是想要在新的表单中的单元格的值。下面是我的代码，它移动行的一部分。我的问题是我在哪里添加PasteSpecial或等价的代码将其作为值？谢谢！ For Each xCell In xRg If CStr(xCell.Value) = "Pipeline" Then xCell.EntireRow.Copy Destination:=Worksheets("Pipeline2").Range("A" & B + 1) xCell.EntireRow.Delete B = B + 1

Excel VBA – 复制并粘贴部分格式: 如何从一个单元格复制和粘贴单元格到另一个单元格，并在单元格内的某些文本上使用VBA在Excel中进行格式化？例如，我将如何复制“你好世界 ”，所以它确切地出现在粘贴细胞的方式？谢谢！

粘贴特殊的列宽: 谁能告诉我为什么这不粘贴在指定的单元格中复制的内容 Dim FinalRow As String FinalRow1 = 112 – Quantity Let FinalRow = "112" & ":" & FinalRow1 'Unhide Rows For i = 1 To Quantity Rows(FinalRow).EntireRow.Hidden = False Next Dim RowToPaste As String RowToPaste = "C" & FinalRow1 Range("C112:AM113").Select Selection.Copy Range(RowToPaste).Select Selection.PasteSpecial Paste:=xlPasteColumnWidths Range("C112:AM113").Select Selection.Borders.LineStyle = xlNone Range("C112:AM113").ClearContents 它清除内容并删除边框，我知道它是复制单元格“C112：AM113”，但它不粘贴任何东西