Tag: 复制

如何从另一个工作表中更改数据下从一个工作表粘贴数据？

我一直在广泛地研究这个问题，但是我的发现没有帮助我修复我的代码。 我试图复制worksheet2所有数据，并直接粘贴到worksheet1 （每月更改）的数据下。 这是我迄今为止所做的，但每次我尝试运行它，它说 运行时错误9'下标超出范围'。 Sub macro8() Sheets("worksheet2").UsedRange.Copy Destination:=Sheets("worksheet1").End(xlUp).Offset(1, 0) End Sub

粘贴特殊错误 – 1004 VBA Excel

我正在尝试创build一个循环来复制源工作表中的单元格中的数据，并粘贴到目标工作表中的特定单元格中。 一旦单元格被粘贴，我需要它来保存该文件的副本，然后粘贴源工作表中的下一个值。代码是： Private Sub CommandButton1_Click() Dim wbTarget As Worksheet Dim wbSource As Worksheet Dim SaveLoc As String Dim FName As String Dim i As Long Set wbSource = Sheets("Sheet3") Set wbTarget = Sheets("Sheet1") wbSource.Activate Range("A1").Activate Do While ActiveCell.Value <> "" DoEvents ActiveCell.Copy For i = 1 To 30 wbTarget.Activate With ActiveSheet wbTarget.Range("E5").Select Selection.PasteSpecial Paste:=xlPasteColumnWidths Selection.PasteSpecial […]

Excel 2010 VBAmacros复制/粘贴

我有这张表，其中许多单元格有一个数值（例如：304 550.07），但实际上取决于同一工作表中的其他单元格的值。 例如：在“公式栏”中可以看到“D1 = C1 + 1”，“2”是D1单元格的实际数值。 我查找了一个方法来复制我需要的列（D），并将其粘贴到另一个工作表上，这里是代码（不是我的）： Sub sbCopyRangeToAnotherSheet() 'Method 1 Sheets("Sheet1").Range("D1:D10").Copy Destination:=Sheets("Sheet2").Range("A1") 'Method 2 'Copy the data Sheets("Sheet1").Range("D1:D10").Copy 'Activate the destination worksheet Sheets("Sheet2").Activate 'Select the target range Range("A1").Select 'Paste in the target destination ActiveSheet.Paste Application.CutCopyMode = False End Sub 所以，这两种方法的工作，但只有单元格的值是数值（locking？），而不是如果他们依赖另一个单元格的值。 因此，当我尝试从“Sheet1”复制D列到“Sheet2”时，我所得到的只是： =＃REF！ 要么 在“Sheet1”中的公式栏中定义的计算，这意味着它将采用“Sheet2”的相关单元格的值。 所有这一切，我试图find一种方法来复制单元格中写入的实际值，而不是导致结果的计算。 PS：真的很抱歉那些不好的解释，首先是post;）谢谢。

VBA：原理图复制例程

我今天不得不用VBA来解决Excel的问题，但我觉得自己是个小菜鸟。 我的要求很简单，但不知何故，我在线上。 我想添加到每个现有的行，在一个额外的工作表上的一些变种。 看看这里的计划 这怎么可能？ 任何人都可以帮我吗？ 感谢您的反馈和您的帮助。 问候eXocode 解决scheme是： Sub CopyData（） RowInSheet3 = 1 For RowInSheet1 = 1 To Sheets(1).Range("A1").SpecialCells(xlCellTypeLastCell).Row Sheets(3).Cells(RowInSheet3, 1) = Sheets(1).Cells(RowInSheet1, 1) RowInSheet3 = RowInSheet3 + 1 For RowInSheet2 = 1 To Sheets(2).Range("A1").SpecialCells(xlCellTypeLastCell).Row Sheets(3).Cells(RowInSheet3, 1) = Sheets(2).Cells(RowInSheet2, 1) Sheets(3).Cells(RowInSheet3, 2) = Sheets(2).Cells(RowInSheet2, 2) RowInSheet3 = RowInSheet3 + 1 Next Next 结束Sub`

EXCEL – 检查/识别多行和另一张纸上的重复文本

20世纪20年代初期，我在纽约有犯罪分子的名字和姓氏。我已经缩小了我正在关注的某些犯罪部门，但是我想把这些名字与更广泛的数据库进行交叉参考，看他们是否犯了其他罪行。 问题是，名字和姓氏在不同的单元格中。 所以，到目前为止我所能做到的最好的一点是，如果姓氏匹配，则标记为“X”，如果名字匹配，则在旁边的列中标记“X”。 这个问题是，虽然它缩小了它，但有很多人的名字是“亚当”，例如很多名字是“布朗”，所以它没有显示实际上是匹配的。 因此，电子表格1'S1'在C2中具有姓氏（例如布朗），在D2中具有名字（例如约翰），而电子表格2'S2'在C2和D2中具有完全不同的名称，所以我需要search所有列的C，然后D进行比赛。 有没有写这个代码的方法？ 有任何想法吗？！

如何将多个文本文件复制到Excel表格中

我有20个文本文件。 我必须打开它们在excel的表格（1 excel文件与不同的文件名与该文本文件相同）。 任何人都可以请build议我的逻辑和哪个包是好的。 我是新的python所以

vbamacros用于复制工作表，然后从另一工作表复制一些信息到复制的工作表

我有问题得到这个工作。 我只想在第一张纸之前从左边复制第二张纸。 然后将刚刚成为第二张的信息复制到新的最左侧的纸张。 我在SELECTION.Copy上得到一个错误，指出有一个预期的variables缺失。 Sub GenerateInvoice() Sheets(2).Select Sheets(2).Copy Before:=Sheets(1) Sheets(2).Select Range("H2:N2").Select SELECTION.Copy Sheets(1).Select Range("E11").Select SELECTION.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub

根据date和单元格值在表格之间复制Excel数据

如果“Sheet2”上的“H”列的值不等于“0”（零），我想从“Sheet2”复制单元格数据到“Sheet1”。 如果陈述是真的，我想复制 “Sheet2：A2”到“Sheet1：A7”， “Sheet2：F2”到“Sheet1：C7”， “Sheet2：G2”到“Sheet1：E7”，和 “Sheet2：H2”到“Sheet1：G7”。 然后，我想遍历“Sheet2”上剩余的行并继续复制，直到工作表中的数据用完。

将发生“n”次的a的第一个实例复制到新的工作簿中

首先非常感谢您提供这样的网站，这对于像我这样的人开始使用VBA非常有帮助。 我正在试图自动化一个手动工作，这是一个非常耗时的工作。 请帮我解决这个问题。 请求。 如下所示： XY —- — 2134 100 2134 200 2134 300 3456 400 3241 500 2516 600 2516 700 我有一张如上所述的'X'和'Y'列。 这是我的源代码表，我有这样的数千个值，行每天（dynamic）加起来。 我想在new workbook>>new sheet的输出new workbook>>new sheet ，它应该有如下输出： X1 Y1 —- — 2134 100 3456 400 3241 500 2516 600 即列“X”和“Y”的第一个实例。 请帮助我得到一个VBA自动执行此操作。 我每天花费4个小时来完成这项工作，因为我需要手动更新1000个数据。 提前致谢

如何使用gembox电子表格在excell中复制和插入特定的行

请帮忙。 我使用gembox.spreadsheet库在excel文件中插入和复制2页内的特定行。 但它仍然有无效论点的问题。 public void InsertCopyData() { SpreadsheetInfo.SetLicense("FREE-LIMITED-KEY"); ExcelFile ef = new ExcelFile(); // Loads Excel file. ef.LoadXls(@"C:\templateExcel\DataTable.xls"); // Selects first and 2nd worksheet. ExcelWorksheet w1 = ef.Worksheets[0]; ExcelWorksheet w2 = ef.Worksheets[1]; //insert copy file w1.InsertCopy(w1.Rows["A1"], w2.Rows["A4"]); //Saves the file in XLS format. ef.SaveXls(@"C:\templateExcel\Insert DataTable.xls"); }