我的第一个VBA程序哦

一、创建新工作表

代码区：

Public Sub Addsheet()

'新建工作表，命名为“超级比分栏”
Dim ws As Worksheet
Set ws = Worksheets.Add
ws.Name = "超级比分栏"

End Sub

在EXCEL中创建一个新工作表

二、复制粘贴单元格代码编程

运行结果

代码区：

Sub uu()
Sheets("Sheet1").Select
Range("b3:b8").Select
Selection.Copy
Sheets("Sheet2").Select
Range("a1").Select
ActiveSheet.Paste
End Sub