lmmp.net
当前位置:首页 >> ExCEl vBA 单元格区域从一个工作簿复制到另一个工作簿 >>

ExCEl vBA 单元格区域从一个工作簿复制到另一个工作簿

Sub xx() Dim rg As Range Set rg = ActiveSheet.UsedRange rg.Copy Workbooks.Add ActiveSheet.Range("A1").Select ActiveSheet.Paste End Sub

运行之后,选择那个“文件2”,点确定,就把“文件2”里"sheet3"的A1:L1000复制到运行文档“sheet1”的B2:M1001了~ 附件文档的模块1里,按alt+f11打开编辑器 http://pan.baidu.com/s/1c2kxQ9q Sub a() Dim a With Application.FileDialog(msoFileDia...

Dim arrarr = Range("a1:d10") ' 需要复制数值的区域,保存结果到数组里面With workbooks.open("a.xlsx") '打开指定的另外的文件 .Sheets("sheet1").Range("a10:d20") = arr '复制值到另外的区域 .Save .CloseEnd With文件必须要打开才可以修改...

按钮请自行添加。 Sub 另存无VBA工作薄() Application.DisplayAlerts = False '不显示警告信息 Workbooks.Add '新建工作保 With ActiveWorkbook '面向活动工作薄(新工作薄) ThisWorkbook.ActiveSheet.Copy Before:=.Sheets(1) '复制工作表到新...

你的“aaa”表是xlsx,行数、列数都超过了xls格式 你应该使用.UsedRange属性选中“aaa”表的已使用区域,进行复制、然后在123.xls新建表,并命名为“aaa”,再粘贴复制内容。 或者直接制定复制区域,进行复制拷贝。 还有: ThisWorkbook.Worksheets("a...

这个应该不叫“发送”,而是写入到或记录到其它工作薄 首先,要写入到其它的工作薄,就必须用代码打开那个工作薄,要打开那个工作薄,就必须知道那个工作薄的完事的路径和名称。如: workbooks("这里是完事的路径和名称").open 或者,调用windows...

Public Sub Copy() Range("A1:C10").Select '复制的区域,自行修改 Selection.Copy '复制 Workbooks(2).Activate '激活第二个BOOK Range("A1").Select '区域,自行修改 ActiveSheet.Paste '粘贴 End Sub

给你个最实用的代码吧 用单元格已使用区域Copy到新的表中 用下面代码要指明第左上解单元格 要复制表的区域.Copy Destination:=接收复制表的左上角单元格 如 把SHEET1中的已使用区域复制到SHEET2中 以SHEET2的A1单元格为起来粘贴进SHEET2 Dim myR...

答: Sub Demo() Dim i As Long Dim LastRow As Long Dim Orng As Range With Sheets("高温再热器") Set Orng = .Range("A2") LastRow = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row End With With Sheets("报告") For i = 2 To LastRow .Range...

Sub copySheet() Dim ws1 As Worksheet Set ws1 = ThisWorkbook.Worksheets("sheet16") ws1.Copy ThisWorkbook.Sheets(Sheets.Count) End Sub

网站首页 | 网站地图
All rights reserved Powered by www.lmmp.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com