返回目录:excel表格制作
一、如何录制宏
开发工具--录制宏----停止录制
二、第一个脚本 重命名(原名为sheet1)
Sub 重命名()
Sheets("sheet1").Select
Sheets("sheet1").Name = "基本信息"
End Sub
第二个脚本
Sub 新建花名册()
Sheets.Add After:=ActiveSheet
Sheets("Sheet2").Select
Sheets("Sheet2").Name = "花名册"
Range("G14").Select
End Sub
第三个脚本
Sub 新建2个工作表()
' 新建2个工作表 宏
Sheets("Sheet5").Select
Sheets("Sheet5").Name = "基本信息"
Sheets.Add After:=ActiveSheet
Sheets("Sheet6").Select
Sheets("Sheet6").Name = "花名册"
Range("D16").Select
End Sub
第四个脚本:复制其他工作簿的信息
Sub 复制信息()
' 复制信息 宏
Sheets("基本信息").Select
Windows("大安山二小.xlsx").Activate
Cells.Select
Selection.Copy
Windows("工作簿1.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("基本信息").Select
ActiveWindow.SmallScroll Down:=108
Range("A119").Select
Windows("大安山学校.xlsx").Activate
Rows("2:109").Select
Application.CutCopyMode = False
Selection.Copy
Windows("工作簿1.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub