Tag: 复制
将来自多个文件的数据复制到具有增量行的一个表中。
我使用下面的代码来打开多个文件之一，从工作表中复制一行，然后将其粘贴回第一个工作表，然后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 […]
VBA的Cells.select复制粘贴不会连续的图像
我有一些数据和一些图片。 我有一些代码将数据和图像从一个工作簿中的表单复制到另一个工作簿中的工作表。 这个问题：如果它会带来图像，它似乎是被打或失的。 有时他们复制，有时他们不跆拳道？ wb.Sheets(form).Activate wb.Sheets(form).Cells.Select Selection.Copy objwbk.Activate ws.Range("A1").Select ActiveSheet.Paste
复制同一行中的值而不是其他列（可变偏移量）Excel VBA
下面的代码确保只有一个范围内的单元格（“D16：E25”）可以包含任何值，当任何值/stringinput到此范围内的其他单元格之一时，代码将删除所有其他单元格。 （这部分工作正常，感谢“macros观人”） 现在，我想要代码复制（并粘贴到“B5”）从列B中的某个单元格的值，这需要是在同一行中的单元格作为范围内的值（“D16：E16” ）。 尝试下面的代码，你可以find…但没有奏效。 安永是否知道这样的溶剂？ 我更喜欢工作簿（单元格“B5”）自动更新，所以不必运行macros或按下button。 If Not Intersect(Target, Range("D16:E25")) Is Nothing Then If Target.Cells.Count > 1 Then MsgBox "Please edit one cell at a time!" Else Application.EnableEvents = False newVal = Target.Value Range("D16:E25").ClearContents Target.Value = newVal a = ActiveCell Application.EnableEvents = True End If End If If a.Column = 4 Then Range("B5") = […]
Excel VBA – 无法在其他工作簿中复制工作表
从工作簿中，我试图打开另一个工作簿，复制该工作簿中的主工作表并重命名它。 问题是，无论我尝试它似乎并不工作，当我复制主表。 尝试一 – 使用复制方法。 Sub individualStats() 'Initialize Dim app As New Excel.Application app.Visible = False Dim objWorkbook As Excel.Workbook Set objWorkbook = app.Workbooks.Add("S:\MH\Stats\Jordan Individual Stats.xlsm") 'Test if Worksheet exists already Set wsTest = Nothing On Error Resume Next Set wsTest = objWorkbook.Worksheets("Test Worksheet") On Error GoTo 0 'If worksheet does not exist then duplicate […]
批量查找文件，复制文件，然后从CSV重命名文件
目标：要获得与列B同名的图像： 我目前有列A中的图像本地存储为JPEGS。 我也有一个需要重命名文件的Excel文档。 我要： 从文件夹复制图像（即。BEVBB48GSY1B.jpg） 将文件重命名为行文本中的下一个单元格（即BEV-BB48GSY1B.jpg） 自动移动到下一行来执行相同操作（即将BEVBB48GSY1B复制并重命名为BEV-BB48GSY1B27） 任何想法，我需要使用的编程或从哪里开始？ 提前致谢。
如何从一个范围内只复制excel vba中的值？
我试图将表中的值复制到一个范围，在Excel中使用VBAmacros，但我不希望表格格式，只有它的值。 我怎样才能做到这一点？ 这是代码的一部分： 'Source range Set r = Sheets("Sheet1").Range("Table1") 'Destination range Set dest = Range(.Cells(linhaAtual, 1), .Cells(linhaAtual + r.Rows.Count – 1, 5)) r.Copy Destination:= dest
将Excel公式复制到多张工作表的最后一行
我有一个工作簿，其中有多个名称不同的工作表，但每个工作表的内容结构保持不变。 只有一个表名永远是不变的。 我试图在单元格N2应用一个公式，然后将公式复制到所有工作表中的最后一个活动行，除了一个名为pie的代码我迄今为止的代码适用于一个循环，但随后出现错误“AutoFill method范围类失败“我用过 Lastrow = Range("M" & Rows.Count).End(xlUp).Row 确定最后一行，因为列M始终是完整的。 任何帮助来完成这将是非常赞赏我的代码是： Sub ConcatForm() Dim wSht As Worksheet Lastrow = Range("M" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False For Each wSht In Worksheets If wSht.Name <> "Pie" Then wSht.Range("N2").FormulaR1C1 = "=CONCATENATE(RC[-3],RC[-2],RC[-1])" wSht.Range("N2").AutoFill Destination:=Range("N2:N" & Lastrow) End If Next wSht Application.ScreenUpdating = True End Sub
我想将多个工作表/选项卡中的数据复制到主工作表
我所拥有的是一个电子表格，其中有超过100个具有相同格式数据的选项卡，但有些表格的行数多于或less于其他行数。 我有一张名为EMP_NUM的工作表， 其中包含所有员工编号和姓名。 我有一个主表，我想所有的相关数据复制到主表。 表EMP_NUM中列出的员工编号与100多张工作表的名称相匹配。 最后，我希望Master工作表上的每一行都有第一个单元格作为员工编号，那么行中剩余的单元格就是从其他所有工作表单中收集的数据。 需要复制的员工＃表的数据从A4开始，在TX结束，其中X等于仍然有值的列A中最大的行数。 我正在考虑使用EMP_NUM中的数据在过程中调用，以便find正确的用于复制数据的表单，因为它们将匹配，而且还可以用作行中的第一个单元格。 一旦完成，我可以添加我的公式来计算数据。 在Excel中使用VB进行了一点点小小的调整已经有6年多了，我不知道该怎么做。 感谢大家的帮助！！ 请让我知道，如果我需要清除任何东西。 **添加** 我会想象的第一步是find第一张来复制数据。 要find第一个工作表，函数应该转到EMP_NUM工作表，看看第一个数字是什么，这个数字和我们想要的工作表的名字完全相关。 那可以是intEmpNum 然后在相应的表格上，我计算出第4行有多less行有数据。 这些行将是要复制的范围。 复制这个范围在图表Master上的第一个可用的行，从列B开始，现在留下A列空白。 列A是针对在列B中具有数据但不在列A中的所有行的intEmpNum 。 然后findEMP_NUM上的下一个员工编号并重复该过程，直到工作表Emp_NUM上的列A中没有更多的员工编号 这是我迄今为止 – Sub Button1_Click() Dim intEmpNum As Integer 'employee number Dim strEmpCell As String 'row that employee number is in strEmpCell = 1 Do Until Sheets("EMP_NUM").Range("A" + strEmpCell).Value = 0 intEmpNum = Sheets("EMP_NUM").Range("A" […]
如何从C＃中将图像粘贴到Excel中，该图像可以被复制
我正在忙着做一个能测量各种事物的应用程序。 测量过程中的结果使用ZedGraph.dll显示在一个图表中。 在测量之后，我想将graphics的一些“屏幕截图”导出到Excel，这工作正常。 除了一个问题，图像不能在Excel中select。 你不能对他们做任何事情。 有没有办法解决这个问题？ 我使用的代码： // Export panes OneCel = (Excel.Range)xlWorkSheet.Cells[row, col]; Clipboard.SetDataObject(zgcRGB.MasterPane.GetImage(550, 500, 400f)); xlWorkSheet.Paste(OneCel, misValue);
将excel单元格数据复制到列中最近的填充单元格
我是Excel的总新手，还有一些我面临的问题。 我有一个Excel工作表，我必须导入到我的另一个程序。 请考虑这种格式： Heading1 | Sub-heading1 | Sub-Sub-heading1 | | Sub-Sub-heading2 | | Sub-Sub-heading3 | | Sub-Sub-heading4 | Sub-heading2 | Sub-Sub-heading1 | | Sub-Sub-heading2 | | Sub-Sub-heading3 | | Sub-Sub-heading4 Heading2 | Sub-heading1 | Sub-Sub-heading1 and so on.. 问题是，为了我的导入目的，我不能留下任何单元格空白。 所以，我想要一些可以将Heading1复制到Heading2上方的所有单元格的Heading2 ，对于列2和所有行中出现的所有数据都是类似的。 这将是很大的帮助，因为它会为我消除障碍。
