Tag: 粘贴

在列中查找string值的行，同时在同一行中但其他列中满足条件: 好吧，我正在尝试从Columnfind一个值。这个Column有大约600个values 。虽然find例如“Lassie”的值并不是一个问题，并且find它位于Cell A301但是它产生了一个问题，那就是我需要检查value Lassie（这里是301）的Row ，然后searchif其他标准正在得到满足。我需要这样的东西：如果CellA301的值是“Sales Revenue，Net”，并且，如果CellK301 = Start_Period的值CellK301 = Start_Period 如果CellL301 = End_Period的值CellL301 = End_Period 如果CellM301 = ""和CellN301 = ""和CellO301 = ""和CellP301 = ""和CellQ301 = "" 然后，如果所有这些条件都满足，我需要copy CellH301并paste到另一Sheet 诀窍是我不能先searchCellA301 ，如果它等于“Sales Revenue，Net”，则执行所有其他testing，因为A列中有许多单元格填充了string值“Sales Revenue，Net”，只有完全符合上述条件的是正确的。编辑 Sub wussss() ''disable autofilter in case it's already enabled' ThisWorkbook.Sheets("31_December_2010").AutoFilterMode = False With ThisWorkbook.Sheets("31_December_2010").Range("A1:AZ1") 'set autofilter' […]

VBA Excel粘贴工作，PasteSpecial不工作: 我试图通过复制粘贴到另一个工作表从多张电子表格中导出范围（如csv）。这适用于Paste函数，但不适用于PasteSpecial函数。这可以： Sheets("Company").Select Range("Company_Data").Select Selection.Copy Workbooks.Add ActiveSheet.Paste ActiveWorkbook.SaveAs Filename:= _ "D:\Documents and Settings\Charles\Development\G4H Dev\Book3.csv" _ , FileFormat:=xlCSV, CreateBackup:=False Application.DisplayAlerts = False ActiveWorkbook.Close Application.DisplayAlerts = True 但是这返回错误1004 `Sheets("Output").Select Range("Output_Data").Select Selection.Copy Workbooks.Add ActiveSheet.PasteSpecial xlPasteValues ActiveWorkbook.SaveAs Filename:= _ "D:\Documents and Settings\Charles\Development\G4H Dev\Book2.csv" _ , FileFormat:=xlCSV, CreateBackup:=False Application.DisplayAlerts = False ActiveWorkbook.Close Application.DisplayAlerts = True 我已经尝试了各种选项，包括 format:=xlPasteValues 但是在我自己的参考书的MS文档中找不到任何东西，除了最粗略的（而且是无益的）处理之外，似乎什么也不做。

在行X和列Y的交点粘贴值: 我需要logging每个学习科目的学生成绩。我已经有一个自动校正器的考试，每当这个校正达到的结果，我需要它打开第二张表，并粘贴该学生的身份证号码（列A）和各自的主题（第1行）之间的交叉点的成绩。我有大约5300名学生和17个不同的科目。实际上，我已经可以做到这一点，但是我在Excel表格的超过10,000个单元格中使用Excel公式，根据我的标准“search”分级。现在，你能想象这个东西是多么的有效吗！我的简要问题是：有没有办法执行预定的任务，但更快？

从1个工作簿复制和转置值到另一个: Sub LoopThroughDecTab() Dim MyFile As String Dim erow Dim FilePath As String FilePath = "C:" MyFile = Dir(FilePath) Do While Len(MyFile) > 0 If MyFile = "Dec Tab Macro.xlsm" Then Exit Sub End If Workbooks.Open (FilePath & MyFile) ActiveWorkbook.Worksheets("Declaration Analysis (Source)").Activate Range("H9:H21").Copy ActiveWorkbook.Close False “运行时错误PasteSpecialMethod的范围失败，在下一行” ActiveSheet.Range(Cells(erow, 1), Cells(erow, 7)).PasteSpecial.Range Transpose:=True MyFile = Dir Loop End […]

Excel VBA复制/粘贴范围到另一个工作表中的下一个可用单元格: 我想要做什么：过滤数组，然后将过滤的数据复制到不同的工作簿。然后将刚刚粘贴到同一工作簿中另一个工作表上的数据复制，但是这次是在现有数据之下。我的想法：下面我使用的代码是用来帮助我从一个工作簿复制和粘贴到另一个工作簿，并完美地工作， wb.Sheets("2014 Current Week").Range("C2:CC10000").Copy nwb.Sheets("2014 YTD").Range("C" & Rows.Count).End(xlUp).Offset(1, 0) 但是如果我想在同一个工作簿中复制它似乎不能以相同的方式工作。任何帮助，将不胜感激。谢谢！ Dim wb as workbook Dim strs As String Dim str As String Dim nwb as workbook Set wb = ThisWorkbook strs = wb.Sheets("Macros").Range("H5") 'the 2014 address can be found in full in cell H5 in the Macros tab set nwb = […]

VBA – 从多个Excel文件复制和粘贴到单个Excel文件: 很长的时间读者和StackOverflow的崇拜者。基本上，我试图通过一系列的Excel文件来复制一系列的数据，并将其粘贴到一个单一的Excel工作簿/工作表。单元格区域位置（C3：D8，D3：E8）并不总是一致的，但表格尺寸为：29 R x 2 C.另外，文件只有一个表格，除指定的表格尺寸外，没有数据值在其他细胞。目前的代码正在执行，但没有粘贴任何东西到目标Excel文件。我需要它在文件（表格）中查找数据维度复制表格粘贴到目的地（下面的表格）循环到下一个文件重复步骤1-4 代码来自： Excel VBA：自动从不同的工作簿复制范围到一个最终的目标工作表？非常感谢任何帮助，我真的很感激，如果我的问题是模糊的，请告诉我指定任何东西。 Sub SourcetoDest() Dim wbDest As Workbook Dim wbSource As Workbook Dim sDestPath As String Dim sSourcePath As String Dim shDest As Worksheet Dim rDest As Range Dim vaFiles As Variant Dim i As Long 'array of folder […]

Excel VBA复制和粘贴（不使用复制+粘贴function）在空行上: 我以前做过这个，我正在摸索着为什么我弄不明白。我试图从一张纸上拉出数据并粘贴到下一行的另一张纸上。我之前没有使用“复制”或“粘贴”VBAfunction，我做了这个。我只是使用值，我想使用户更容易这种方式（没有随机复制的东西在Excel剪贴板上）这是我的代码： Sub SubmitChange() row_number = 2 Do DoEvents Row_number = row_number + 1 item_in_review = Sheet44.Range("B" & row_number) Loop Until item_in_review = "" Sheet44.Range("B" & row_number) = Sheet43.Range(A6).Value End Sub

将数据块与空白复制到其他位置: 我正在重新使用这个string从另一个线程复制整个列与空白（需要alignment其他信息）到一个新的位置。但是我发现它的复制行为将停在第一个空白处，而事实上它却是。我需要做的是复制空白和一切作为一个块，然后把它放在下面的范围内。我考虑先填充所有的空白，但只是将填充值一直发送到无穷大。将会有更多的空白比数据。 Range(Range("P2"), Range("P2").End(xlDown)).Copy '!!!Stops at frist blank!!! For idx = 1 To 1 Columns("P:P").Cut Cells(Range("D2").End(xlDown).Row + 1, "D").Select ActiveSheet.Paste Next 我不明白为什么它不能这样做。如果还有其他解决scheme，我不需要它成为这个代码。我的任务是将一个关联信息的布局从一个完整的行更改为一个“堆叠”布局，其中关联的数据（有一些空白）在列上重复。所以细分市场将被堆叠。整个专栏削减副本大多已经工作。它可以在移动之前根据另一个单元格的非空值复制一个范围。但它需要着陆在新的范围的底部的第一个空单元格。我会重复这几列，但可以单独做。我可以绕过第一个问题，如果我用一些代码来看看BI到BO列的单元格，并填充一个值（“0”或“ – ”），如果BH中的值不是空白的。

VBA复制Excel范围到不同的工作簿: 我正试图find一种方法来将范围复制到另一个工作簿，在这种情况下A6：J21，在一个工作簿中。我认为这将是如下的东西… currentWorksheet = xlWorkBook.Sheets.Item("Command Group") excelRange = currentWorksheet.Range("A6:J21") excelDestination = newXlSheet.Range("A6:J21") excelRange.Copy(excelDestination) 但它给我一个excelRange.Copy(excelDestination)的错误。下面的代码按预期运行，所以我不知道我在哪里错了。 Dim xRng As Excel.Range = CType(currentWorksheet.Cells(7, 7), Excel.Range) Console.WriteLine(xRng.ToString) Dim val As Object = xRng.Value() testString = val.ToString Console.WriteLine(testString) newXlSheet.Cells(1, 1) = testString

VBA根据数据值将数据从主表格复制并粘贴到另一个表格中: 我有一个名为Mainsheet的主表和另外12个表，每个月一个。我的Mainsheet可能有一月或二月或三月的数据等。我需要复制反映在我的mainsheet的数据，并粘贴到1 Jan或Feb之一，具体取决于哪个月。这是我到目前为止.. Sub Macro1() Dim i, LastRow LastRow = Sheets("Mainsheet").Range("A" & Rows.Count).End(xlUp).Row For i = 5 To LastRow If Sheets("Mainsheet").Cells(i, "E").Value = "1/20/2017" Then Sheets("Mainsheet").Cells(i, "A").EntireRow.Copy Destination:=Sheets("Jan").Range("A" & Rows.Count).End(xlUp).Offset(1) End If Next i End Sub 我的问题是如果数据是Feb月份而不是Jan月份，我该如何继续macros观？我怎样才能指定Jan的月份，而不是一个特定的date，如1/20/2017在我的代码？另外，我怎样才能复制范围从A5:M5加上行直到最后填充单元格，而不是复制从A:5的整个范围，直到最后一列使用？