一、创建新工作表
代码区:
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