excel宏新手教程（一）第一次学习录制宏！-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