作者:乔山办公网日期:
返回目录:excel表格制作
1、开发工具——VB。
2、输入代码:zhidaoSub 复制表() Dim MyBook1 As Workbook Set MyBook1 = Workbooks.Open("C:\Users\Administrator\Desktop\工作回表1.xls") Sheets("移动表").Select Sheets("移动表").Copy Before:=Workbooks( _ "工作表2.xls").Sheets(1)MyBook1.CloseEnd Sub。
3、开发工具——宏。
4、执行——复制表。
5、如答图,复制完成。
代码copy如百下。度详见知附件道
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("A1"), Target) Is Nothing And Target.Count = 1 Then
Dim N&
N = Val(Target)
If N > 0 And N <= Cells.Columns.Count Then
Sheet1.Columns(N).Copy [A1]
Else
Columns(1).ClearContents
End If
End If
End Sub
这个可以录制一个宏就可以看到代码了
sheets("").copy