Tag: 复制

如果条件满足，将excel中的行复制到表中。: 我试图根据D列中的数据将Sheet'All'的整行复制到另一个Sheet中.D列（Homework / Advanced / Beginner）中有多个值，这些行需要被复制到相应的名字。（家庭作业表）。 “全部”工作表中的数据将被添加到新的数据，而不需要复制那些已经存在的数据。

select，从IE复制并粘贴到Excel: 所以基本的问题是，我怎样才能使表格很好地从IE复制到Excel或OpenOffice calc。该页面位于： http : //tuudik.lohv.eu/Asjad/EURXML/ 该表是由PHP代码dynamic创build的。有一个tekst“Vali tabel”的button！这意味着，它select表。然后我想复制它，例如使用CTRL + C并将其粘贴到电子表格中。什么是最好的select？我应该创build一个隐藏的div，然后有什么样的表中相同的数据，但格式化的方式？另外，任何人都知道如何制作“Valikõik！” button的工作，所以它会自动将内容复制到剪贴板？

将excel（2007）工作表复制到新的工作簿，而不需要引用原始工作簿的公式: 我有两张工作簿。第一个是充满了数据和计算，第二个是大多数单元格引用第一个工作表。第二个工作表也连接string和表单元的引用，以形成其他地方使用的SQL命令。还有第二个工作簿（很快就会更多）。它具有与其他工作簿的第一张相同的工作表，但数据不同。我遇到的问题是新的工作簿需要一张类似于原始工作簿的第二张工作表（抱歉，如果这听起来令人困惑）。我想简单地复制表格及其公式，我尝试使用“移动或复制…”选项。不幸的是，单元格中的公式引用了旧工作簿中的第一个工作表，如下所示：= [foobar.xlsx] data！A1。太多的数据来手动删除它们。我不能只重做公式，因为我不得不从第二张纸上删除很多特定的行，所以拖动公式不能正确匹配。我目前正在尝试与REPLACE一起破解，但如果任何人都可以提供帮助，将不胜感激。澄清：当我复制工作表时，一个公式将显示为= [foobar.xlsx] data！A1。我希望它只是数据！A1。谢谢：）

VBA：从服务器获取/下载Excel文件并将内容复制到新的工作表中: 由于某些原因，下面的macros将不起作用： Sub ExtractDataTest() Dim FilePath$, Row&, Column&, Address$ 'change constants & FilePath below to suit '*************************************** Const FileName$ = "Dxo.xlsx" Const SheetName$ = "Open" Const NumRows& = 50 Const NumColumns& = 20 FilePath = ("http://enhanced1.sharepoint.hx.com/teams/") '*************************************** DoEvents Application.ScreenUpdating = False If Dir(FilePath & FileName) = Empty Then MsgBox "The file " & FileName & " […]

擅长复制公式与几个不同的表: 我有不同的床单。命名为一月。 5，6，7，8等等。 1月5日SHEET1 ： A1 B1 C1 D1 beginning balance + debit – credit = ending balance 1月6日第2页：我要求1月5日的期末余额的期初余额。 1月7日SHEET3 ：我想要1月6日的期末余额的期初余额。等等。当我复制上一张表格时，我应该怎样做我的单元格复制上一张表格的结尾余额，并一起复制公式？

用于从外部工作表更新工作簿的Excel vba代码: 又一个工作表复制问题！这是一个简单的问题，让我难住。我想单击一个命令button（在action.xlsm）重新填充一个单独的Excel文件（inventory.xlsx）范围内的值（“股票” – 2列和可能100行 – 这是主库存logging）从活动工作表（在action.xlsm中）的已命名范围（“newInventory” – 与其他命名范围的大小相同）中删除原始“库存”值减去缺货项目的值。计算是好的我只是不能让主库存文件来更新。我已经检查了一堆论坛，并尝试了两种方法无济于事。我努力了： Private Sub CommandButton1_Click() Dim InventoryFileName As String InventoryFileName = "C:\Users\david\Documents\inventory.xlsx" Workbooks(InventoryFileName).Worksheets("Sheet1").Range("stock") = ThisWorkbook.Worksheets("inventory").Range("newInventory").Value Workbooks(InventoryFileName).Save End Sub 在第4行抛出“运行时错误”9：“下标超出范围”。我也尝试过： Private Sub CommandButton1_Click() Dim wbTarget As Workbook 'workbook where the data is to be pasted Dim wsTarget As Worksheet Dim wbThis As Workbook 'workbook from where […]

将一张表复制到不同的工作簿…但粘贴值？: 感谢您的帮助。我已经想通了，并成功地提出了代码来执行我所需要的。我还有一个问题，希望你能帮上忙。附上是我的代码，注意大胆的部分。我想sourceSheet复制为一张纸，并粘贴在targetSheet（“NewBook”Sheet2），但我希望它粘贴为值。这里是需要查看的具体部分…下面是完整的代码。 Set sourceBook = Application.Workbooks.Open(sourceFilename) Set sourceSheet = sourceBook.Sheets("Current") Set targetSheet = NewBook.Sheets("Sheet2") sourceSheet.Copy targetSheet Set targetSheet = NewBook.Sheets("Current") targetSheet.Name = "Previous" Sub Subtype() Dim sourceBook As Workbook Dim filter As String Dim caption As String Dim sourceFilename As String Dim sourceSheet As Worksheet Dim targetSheet As Worksheet If customerFilename […]

Excel 2010 VBA帮助复制列的范围: 我的代码几乎按照需要工作。它检查所有表单中的“F”列中的某个值，然后将其关联的行复制到活动表单中。我可以让代码复制整行，单数列“A”或顺序范围“A：C”。我似乎无法使它复制像“A”“C”和“F”这样的特定列，这是我需要做的。 Public Sub List() Dim ws As Worksheet Dim i As Integer ActiveSheet.Rows("3:" & ActiveSheet.Rows.Count).Clear Selection.Clear For Each ws In Worksheets If ws.Name <> ActiveSheet.Name Then For i = 1 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row If ws.Cells(i, "F").Value = "Pending" Then ws.Cells(i, "A").Columns("A:D").Copy Destination:=ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) End If Next End If Next

VBA从分开的范围复制粘贴值并粘贴在相同的工作表，相同的行偏移列（对多个表重复）: 我打算做一个Case声明，但是我认为在这种情况下没什么意义，我是一个VBA n00b，因为这个工作簿将保持相当的静态我不介意采取非最优方法并loggingmacros的复制和粘贴，但我想在这之前，我会问在这里。我有1个工作簿中的6个工作表。 Sheet1：复制BA17：BI31，复制BA48：BI50，复制BA67：BI81，复制BA98：BI100，复制BA117：BI131，复制BA148：BI150，复制BA167：BI181，复制BA198：BI200，复制BA215：BI215，复制BA230： BI230，拷贝BA246：BI260，拷贝BA275：BI277 然后将上述副本粘贴到相同的行中，但是在同一张表的AE：AM列中（简单偏移）。如果有人能把我引向正确的方向，我可以重复这个解决scheme，为其他5张，我必须做同样的想法，但不同的行和列。任何帮助将不胜感激，谢谢！ Sub CopyPasteOffetColumns() Range("BA17:BI31").Select Application.CutCopyMode = False Selection.Copy Range("AE17").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("BA48:BI50").Select Application.CutCopyMode = False Selection.Copy Range("AE48").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("BA67:BI81").Select Application.CutCopyMode = False Selection.Copy Range("AE67").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("BA98:BI100").Select Application.CutCopyMode = False Selection.Copy Range("AE98").Select […]

将工作表复制到其他工作簿，请参阅指向新的工作簿: 这是我面对的情况：我有两个工作表，“调查”和“configuration”的工作簿。 configuration工作表包含链接到测量工作表的单元格。我正试图将这些工作表复制到一个新的工作簿。但是，一旦完成了复制，新工作簿的“configuration”选项卡中的单元格就会指向旧的工作簿。我想到的一个解决scheme是将值复制到新工作表/新工作簿中，但是我的客户不需要这样做：他们希望公式仍然存在，以防他们想要更新“测量”选项卡上的某些数据并将其发挥到configuration。有没有办法复制工作表，使任何单元格引用保持不变（即仍指向“Survey！A1”而不是指向“OldWorkbook！Survey！A1”？编辑我想使用工作表（数组（…））。复制方法。我现在遇到的问题是，我有一个string数组与两个源工作簿通用的工作表的名称。如果我将数组replace为数组（…），则代码将被炸毁。不幸的是，我不会提前知道哪些工作表对于源工作簿是通用的，所以我不能对数组函数的列表进行硬编码，而且我已经尝试创build一个看起来像Array的参数列表的string，并使用它，但代码也不喜欢那样。 'Initialize indexes and arrays and stuff intSheetsInCommonIndex = 1 intDiscrepanciesIndex = 1 intSheetsInNPEIndex = 1 lngDiscrepancyBackColor = RGB(202, 6, 95) Application.ScreenUpdating = False For intInner = 1 To 40 strSheetsInCommon(intInner) = "" strSheetsInNPE(intInner) = "" Next intInner 'Set up the pointers to the two […]