Tag: 副本

如何在更改列时复制数据

我再次…我有一些代码，从一个特定的列（从表“转换器”）复制单元格，并将其粘贴到不同的列（表“未分配”）。 然后将这些值（ID）用作参考点，将每行（logging）的其余单元格移动到我需要的正确位置。 但是我不能让代码连续复制ID到一个空行，以便他们不覆盖以前的设置。 我认为这是与行Master.Cells(rowB, colB) = yourData但我无法弄清楚。 我试图改变rowB是相同的xlUpfind列中最后一个未使用的单元格（与lastA = Slave.Cells(Rows.Count, colA).End(xlUp).Row ），但我无法得到它上class。 有任何想法吗？ 当前代码： Private Sub CommandButton21_Click() Dim colA As Integer, colB As Integer Dim rowA As Integer, rowB As Integer Dim Master As Worksheet, Slave As Worksheet 'declare both Application.ScreenUpdating = False Set Master = ThisWorkbook.Worksheets("Unallocated") Set Slave = ThisWorkbook.Worksheets("Convertor") colA = 17 colB […]

如何在Excel VBA中只复制一张（不是全部）到.xls文件？

请帮忙。 我想使用Excel VBA将12张其他纸张（不是原件中的所有纸张）复制到另一张.xls文件中。 下面我附加的代码工作，除了它复制所有的工作表，而不是只是一个，还有当创build新的文件打开，源文件closures。 任何人有任何build议我的代码有什么问题？ 我曾尝试各种组合的工作表，表格，Activesheet但没有成功）？ Sub CopyMainFin() ' ' CreaMainFin Macro ' Dim LastCopyRow As String Dim MyStr As String MyStr = Format(Date, "mmddyyyy") LastCopyRow = “BT307” Application.ScreenUpdating = False Worksheets("MainFinal").Range("A1", LastCopyRow).Activate Worksheets("MainFinal").Range("A1",LastCopyrow).Select Worksheets("MainFinal").Range("A1", LastCopyRow).Copy ' I noticed that my rage selected ActiveSheet.SaveAs Filename:="C:\Documents and Settings\algorn\My Documents\Excel files\" & "OutputFile" & MyStr & ".xls", […]

根据单元格值插入复制的行

下面的vba代码（从这里修改）将在E列中具有值“0”的任何行上面插入一个空白行。而不是插入一个空白行，有没有办法用“0”复制行并插入它在上面呢？ 可以修改这个VBA代码来做到这一点？ Sub BlankLine() Dim Col As Variant Dim BlankRows As Long Dim LastRow As Long Dim R As Long Dim StartRow As Long Col = "E" StartRow = 1 BlankRows = 1 LastRow = Cells(Rows.Count, Col).End(xlUp).Row Application.ScreenUpdating = False With ActiveSheet For R = LastRow To StartRow + 1 Step -1 If .Cells(R, Col) […]

vbs将文本从IE复制到Excel

任何人都可以帮助我一个简单的VBS脚本从该站点复制字段qwidget_lastsale到Excel表？ http://www.nasdaq.com/symbol/abt/recommendations 我一直在尝试修改现有的脚本，但似乎无法使其工作。 我可以打开网站和excel，但不能复制该字段。 我想这之后有副本脚本： Set objExplorer = CreateObject("InternetExplorer.Application") WebSite = "http://www.nasdaq.com/symbol/abt/recommendations" with objExplorer .Navigate2 WebSite .left=5 .top=5 .height=1100 .width=700 .AddressBar = 0 .Visible = 1 .ToolBar = 0 .StatusBar = 1 WScript.Sleep 1000 Set objIE = Nothing end with Set xl = CreateObject("Excel.application") xl.Application.Workbooks.Open "C:\Users\user\Documents\testauto.xlsx" xl.Application.Visible = True 最好的问候user24

VBA将数据从一个工作簿复制到另一个工作簿

我只是探索VBA，并试图用它来从一个工作簿复制到另一个工作簿的select。 第一本书“发送”之间的信息A：D和行数可以改变。 “接收者”将从许多“发送”中收集信息，因此需要将这些数据复制到最后的信息之下。 我发现下面的代码，并修改它，但它给了我一个运行时9代码，并落在'lMaxRows_t'任何想法或帮助非常感谢 Sub CopyData() Dim sBook_t As String Dim sBook_s As String Dim sSheet_t As String Dim sSheet_s As String Dim lMaxRows_t As Long Dim lMaxRows_s As Long Dim sMaxCol_s As String Dim sRange_t As String Dim sRange_s As String sBook_t = "\\scceastfl5\~\tester receiver.xlsx" sBook_s = "\\scceastfl5\~\tester send.xlsx" sSheet_t = "Sheet1" sSheet_s = […]

如何用密码打开工作簿，禁用事件

如何使用密码打开工作簿，禁用事件，然后将背景中的工作表复制到第二个文件并保存。 我需要在VBA中，在MS-Access和Excel文件中工作 我这样做到现在为止，正在工作。 Private Sub TestFunction() 'strPath = CurrentDb.Properties(0) 'strPath = Left(strPath, Len(strPath) – Len(Dir(strPath, vbNormal))) & "Temp\" Dim CopyFrom As Object Dim CopyTo As Object ''Early binding: Workbook Dim CopyThis As Object Dim xl As Object ''Early binding: New Excel.Application Set xl = CreateObject("Excel.Application") xl.Visible = True Set CopyFrom = xl.Workbooks.Open("D:\A01.xls") 'CopyFrom.EnableEvents = False […]

Excel – 根据某些文本将相邻的数据值复制到另一个表单，直到表单结束

所以我有两个Excel文件。 一个从（RESULT.xlsm）获取数据。 另一个插入数据（Summary.xls）。 我想要的是在高亮的名字旁边的相邻单元格值插入到相应列下的Summary.xls中。 所以我试图录制一个macros，但是只发生了第一个插入的logging。 由于只有两个链接，我把它放在一张照片： http : //i50.tinypic.com/9veihl.png 注意：RESULT.xlsm中有多条logging，屏幕截图只显示一条logging。 我想帮助我如何从所有logging集中提取数据并在Summary.xlsx中插入 这里是logging的macros代码： Sub Summ() Workbooks.Open Filename:="Summary.xlsx" Windows.Arrange ArrangeStyle:=xlVertical Windows("RESULT.xlsm").Activate Cells.Find(What:="Air System Name", After:=ActiveCell, LookIn:=xlFormulas _ , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate Range("B10").Select Selection.Copy Windows("Summary.xlsx").Activate Range("A5").Select ActiveSheet.Paste Windows("RESULT.xlsm").Activate Cells.Find(What:="Floor Area", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate Range("B14").Select Application.CutCopyMode = False Selection.Copy Windows("Summary.xlsx").Activate […]

从一个工作簿复制到打开工作簿

我试图从一个封闭的工作簿中复制一个对象到当前打开的工作簿，我试验的蜜蜂的代码是： Sub test() Dim WB1 As Workbook Dim WBDest As Workbook Set WBDest = Workbooks(ActiveWorkbook.Path & "\" & ActiveWorkbook.Name) 'Open up your first workbook, copy data Set WB1 = Workbooks.Open("path to the folder\testbook.xlsx") WB1.Sheets("Sheet1").Range("A1:F12").Copy 'paste in second workbook WBDest.Sheets("Sheet1").Range("A1").PasteSpecial 'Close first workbook WB1.Close savechanges:=False End Sub 我不断收到一个“下标超出范围”的错误，如果我删除了WBDest信息并使用了activeworkbook，它将复制对象并将其粘贴到同一工作簿中，因为它是当前的工作簿。 有人可以请指导我，并帮助我弄清楚我做错了什么。 谢谢。

从多个文件复制单元格J1并粘贴到主文件的列中

我目前有这个代码将从一个文件夹中获取文件，每个打开一个，将其名称打印到我的“主文件”的第一列中closures它，并以这种方式遍历整个文件夹。 在打开的每个文件中，单元格J1中的信息都是我想要复制并粘贴到“主文件”的第3列中的信息。 代码段当前返回一个错误（ 对象不支持这个属性或方法，但我不能告诉它指的是哪一行）并导致程序在打开一个文件后停止。 有任何想法吗？ 完整代码： Sub LoopThroughDirectory() Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim MyFolder As String Dim Sht As Worksheet Dim i As Integer MyFolder = "C:\Users\trembos\Documents\TDS\progress\" Set Sht = ActiveSheet 'create an instance of the FileSystemObject Set objFSO = CreateObject("Scripting.FileSystemObject") 'get the folder object Set objFolder […]

如果单元格包含一定数量然后复制

一个简单的解释，我有什么麻烦： 表1列A：39130个订单号码清单表1列B：与列A相关联的税号A表2 A列：与表1相同值的24个不同号码的列表B列2列B列出的税号 所以，我正在寻找第一列A的值匹配第二列A的值，并返回第二列的值在新列（G） 我怎样才能做到这一点？