Tag: 粘贴

如果不是“”，在VBA的最后一行之后粘贴: 我在那里我有以下问题：如果结果不是“不匹配”，我想将结果粘贴到新工作表中，如何将其粘贴到新工作表中，最后一次使用的行之后？我在Active.Paste上遇到错误这是我的代码： Public Sub CopyRows() Sheets("Koppeling data").Select ' Find the last row of data FinalRow = Cells(Rows.Count, 4).End(xlUp).Row ' Loop through each row For x = 3 To 10 ' Decide if to copy based on column D ThisValue = Cells(x, 4).Value If ThisValue = "NO MATCH" Then Else Rows(x).Copy Sheets("All sessions").Select Call FindingLastRow […]

如何使用公式复制包含公式的列，然后使用VBA将这些值粘贴到同一列中？: Sheets("MoM").Select Range("H2:H").Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False 我想要做的就是删除VLOOKUP公式，在“H2”开始的同一列中粘贴数值，最后一个数组中的公式结束。

计数行和副本号码: 我有一个excel工作簿，其中有多张表，范围从A到L。我想统计行数并将结果粘贴到汇总表中。例如： Sheet2有3行。我想将行数复制到sheet1 C3中 Sheet3有9行。我想将行数复制到sheet1 C4 Sheet4有5行。我想将行数复制到sheet1 C5中通过我所有的床单等等。（我有超过3000张）我是excel中的新手，所以我会欣赏任何帮助，非常感谢。

C＃Excel有条件地剪切/粘贴单元格: 如何检查我的两列（列I和列H）以查看是否在列I中，如果有任何单元格是非空的，列H中的单元格是空的，则将列I中的非空单元格剪切并粘贴到空细胞在列H. 举一个更清晰的例子：我的想法到目前为止是如此： xl.Range ColH = sourceSheet.UsedRange; xl.Range ColI = sourceSheet.UsedRange; string occupiedCellsH; string emptyCellsI; occupiedCellsH = ColH.ToString(); emptyCellsI = ColI.ToString(); if (string.IsNullOrEmpty(emptyCellsI) && occupiedCellsH != null) { ColH.Cells.Copy(ColI);; }

如何防止Excel VBA粘贴特殊值，将数据types从数字/date更改为文本: 我遇到一个问题，Excel VBA粘贴特殊值时将数据types更改为文本，当它执行粘贴值操作，然后打破下游公式，期望看到一个数字/date而不是文本。在很高的层面上，我的过程如下：从function工作表开始，复制并重命名它; 对新创build的工作表执行操作，包括复制，粘贴特殊值; 取决于粘贴数据的公式现在已经被破坏，因为数据types已经改变为文本。正在执行复制粘贴特殊值的代码如下所示： Workbooks("myFile.xlsm").Sheets(pageFocus).Range(refreshCopyRange).Copy Workbooks("myFile.xlsm").Sheets(pageFocus).Range(pasteRange).PasteSpecial (xlPasteValues) 是否有某种修改器或覆盖PasteSpecial（xlPasteValues），将停止Excel VBA更改数据types？非常感谢您的帮助！

将IF值粘贴到目标中: 我想要创build一个macros以复制范围（C2：C22），其中有公式并将其粘贴到列范围（D2：D22）上作为值。我的问题是每6个单元我有一个公式，我不希望macros重写它。我一直在尝试这个macros，但它不复制公式，只有值，我需要粘贴在值，而不是公式。谢谢！ Sub example() Dim source As Range Dim target As Range Set source = ActiveSheet.Range("c2:c22") Set target = ActiveSheet.Range("d2:d22") copy_formulas source:=source, target:=target End Sub Public Sub copy_formulas(source As Range, target As Range) 'Assumes that all formulas start with '=' and all non formulas do not Dim i As Long Dim j As […]

excel 2010：文本到列是记住，如何摆脱这个？: 我已经从pdf文件复制到Eexcel（2010）。我使用“文本到列”来创build单独的列。现在我已经完成了我的任务的一部分，我想粘贴另一个文本到同一个文件。但是现在Excel直接使用我用来分割这个新文本的文本到列，我现在（明显）不想被分割。我尝试在新的工作表上粘贴文本。我试图把这个文本粘贴到一个新的工作簿中，但是文本仍然是由excel直接分割的。我尝试粘贴为文本，我尝试粘贴为unicode文本。但到目前为止，我还没有find解决办法。如何让Excel“忘记”它已经将文本分割成列？

Excel中的特殊粘贴与VBA: 我正在使用VBA与Excel一起工作。我需要从一行复制和粘贴一些信息到特定的目的地。我正在使用这个代码： ''CUSTOM MESSAGE Sheets("Extract").Range("AI" & sourceRow & "").Copy Destination := Sheets("Print").Range("H" & destRow + 7 & "") 这段代码的结果是：但我需要这样的东西：正如你所看到的，我需要改变到下一行，然后才出表。任何想法？

将所有工作表复制到一张表中: 我正在尝试编写一个将所有工作表复制到一个工作表的Excelmacros。所有的工作表都布置成相同的，每行的每个单元格中有4列数据。每张纸都有一个标题。我试图将每张纸的预过滤数据复制到结果表中，每张纸上的数据将堆叠在一起。到目前为止，这是我所拥有的，而且几乎可以工作。 Dim sh As Worksheet Dim iRows As Long iRows = 0 For Each sh In ActiveWorkbook.Worksheets sh.Select Range("A1").Select Selection.Offset(1, 0).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Worksheets("Results").Select Range("A1").Select Selection.Offset(iRows, 0).Select Selection.PasteSpecial Paste:=xlPasteValues iRows = Worksheets("Results").UsedRange.Rows.Count Next sh 我的抵消是不正确的，当我复制下一张表复制的数据复制了上一行。如果任何人都可以帮到你，那么如果你还可以解释我在这里做错了什么，那么对于我刚刚接触excel和VBA的人来说，这将是非常棒的。我猜，我不明白如何正确的粘贴工作？

将来自多个文件的数据复制到具有增量行的一个表中。: 我使用下面的代码来打开多个文件之一，从工作表中复制一行，然后将其粘贴回第一个工作表，然后closures打开的文件。我的问题是，我不能通过function，每次贴下去的行。我希望它增量粘贴新行上的值，即。 B3 ，然后是B4 ，然后是B5等 Sub Auto_open_change() Dim WrkBook As Workbook Dim StrFileName As String Dim FileLocnStr As String Dim LAARNmeWrkbk As String PERNmeWrkbk = ThisWorkbook.Name FileLocnStr = "T:\Projects\data" 'ThisWorkbook.Path Dim StrFile As String StrFile = Dir(FileLocnStr & "\*.xls") Do While Len(StrFile) > 0 DoStuff (FileLocnStr & "\" & StrFile) StrFile = Dir Loop […]