Excel VBA自己录制的一个工作簿中跨工作表的COPY
录制这个宏是为了有些工作表需要时点击按钮来获取另一个表的一个时间，但是当我新建一个工作表，或是做录宏的工作表副本时，得到的结果还是显示在原来表的固定单元格，还会随单元格的击活状在出现在别的格里。但新的工作表里却没有，对高手来说这个很简单，我想要达到，以后的新增的工作表里运行宏会把想要的内容粘贴在当前的工作表里。代码如下：求更改，求优化！分不多，在线等
Sub 结算期间()
Range("E4").Select
Sheets("主程序").Select
Range("C2:F2").Select
Selection.Copy
Sheets("样版").Select
ActiveSheet.Paste
Range("E4:H4").Select
End Sub
Sheets("主程序").Range("C2:F2").Copy Selection
'将主程序表的C2:F2复制到当前选定的单元格中
End Sub追问
能不能改成复制到固定的E4:H4中
追答Sub 结算期间()
Sheets("主程序").Range("C2:F2").Copy sheets(sheets.count).[E4]
'将主程序表的C2:F2复制到最后一个工作表的E4单元格
End Sub
Excel VBA自己录制的一个工作簿中跨工作表的COPY
Sub 结算期间() Sheets("主程序").Range("C2:F2").Copy Selection '将主程序表的C2:F2复制到当前选定的单元格中End Sub
请教如何利用VBA实现将一个工作表复制到另一个工作簿中
在VBA编辑器中，编写以下代码来创建一个名为"复制表"的宏：SubCopySheet()DimMyBook1AsWorkbookSetMyBook1=Workbooks.Open("C:\\Users\\Administrator\\Desktop\\工作表1.xls")'选择需要移动的工作表Sheets("移动表").Activate'复制该工作表Sheets("移动表").CopyDestination:=Workbooks("工作表2.xls")....
如何用excel vba 将一个工作簿中的一个工资表复制到另一个工作簿中的...
Sub copySheet()Dim ws1 As Worksheet Set ws1 = ThisWorkbook.Worksheets("sheet16")ws1.Copy ThisWorkbook.Sheets(Sheets.Count)End Sub
excel里面我想 用VBA实现调用另一个工作簿中的数据怎么解决
在Excel中，利用VBA可以轻松实现跨工作簿的数据调用。首先，你需要在工作簿的宏录制功能中开始操作。点击左下角的录制宏按钮，为即将执行的操作创建一个宏。在宏名处，输入一个易理解的名称，例如"DataTransfer"，并选择存储在"个人宏工作簿"中，然后点击"确定"。录制完成后，通过点击停止录制宏按钮暂停...
如何使用VBA 把第一个excel文件中的某一个单元复制到另一个excel文件中...
Sub 搬运工pro()Windows("家具.xlsx").Activate Sheets("Sheet1").Select 金币20 = InputBox("亲爱的老板~ 当前表格是'家具'表，宝贝在哪个单元格呀？", "找活的搬运工")Range(金币20).Copy Windows("工具.xlsx").Activate Sheets("Sheet1").Select 金币20到手 = InputBox("亲爱的老板~，...
使用VBA, 如何将一个EXCEL文档中某个区域的内容自动复制到另一个EXCEL...
Sub MyCopy()Workbooks("工作簿1.xls").Sheet1.Range("A1:C50").Copy ThisWorkbook.Sheet2.Range("A1")End Sub 意思就是把工作簿1中工作表sheet1的A1：C50区域复制到当前工作簿sheet2工作表的A1区域（这个区域与前面的区域是一样的，只需要写左上角的单元格即可）...
vba excel如何跨工作簿拷贝内容
比如：表1 的A1：B2 复制到 表2 的C1 开始的区域，可以用下面的代码，其他的变通一下就可以 Sheets("表1").[a1:b2].Copy Sheets("表2").[c1]
EXCEL vba怎样将一个工作薄的内容复制到另一个工作薄中
运行之后，选择那个“文件2”，点确定，就把“文件2”里"sheet3"的A1：L1000复制到运行文档“sheet1”的B2：M1001了~附件文档的模块1里，按alt+f11打开编辑器 Sub a()Dim a With Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False .InitialFileName = ThisWorkbook.Path If ....
excel vba 单元格区域从一个工作簿复制到另一个工作簿
Sub xx()Dim rg As Range Set rg = ActiveSheet.UsedRange rg.Copy Workbooks.Add ActiveSheet.Range("A1").Select ActiveSheet.Paste End Sub
vba 同一个excel工作表,sheet之间的复制
Sheet2.Cells(r, 1).Resize(1, xxx.Columns.Count) = xxx.Rows(t1).Value Exit For End If Next Next End Sub --- 根据补充, 再写以下一段程序:Sub findempty()Set xxx = Sheet1.[A3:A10000]Set yy = Sheet2.[A3]For Each xx In xxx If Not IsEmpty(xx) Then yy.Offset(r, ...
