步步为营-109-Excel-二、工作表

一、工作表 （sheet）

实例一：批量创建工作表、生成1-12月的sheet。

Sub makesheet()
    '生成1-12月的sheet
    Dim i As Integer
    For i = 12 To 1 Step -1
        Sheets.Add.Name = i & "月"
    Next
    Sheets(13).Delete
End Sub


Sub removesheet()
    '删除1-12月的sheet
    Dim i As Integer
    For i = 11 To 1 Step -1
        Sheets(i).Delete
    Next
    Sheets(1).Name = "sheet"
End Sub

 

实例二：批量复制工作表、按照模板复制。

实例三：统计汇总表名。

实例四：多表汇总。

实例五：处理成绩单。

实例六：对比两个sheet。

Sub yango()
Dim i, j As Integer
co = 1
ro = 1
'获取表头单元格合并的列数
'col = Cells(1, 1).MergeArea.Columns.Count
'统计sheet1有效列数
col1 = Sheet1.UsedRange.Columns.Count
'统计sheet1有效行数
row1 = Sheet1.UsedRange.Rows.Count
'统计sheet2有效列数
col2 = Sheet2.UsedRange.Columns.Count
'统计sheet2有效行数
row2 = Sheet2.UsedRange.Rows.Count

If col1 > col2 Then
co = col1
Else
co = col2
End If

If row1 > row2 Then
ro = row1
Else
ro = row2
End If

For i = 1 To ro
    For j = 1 To co
        If Sheet1.Cells(i, j).Value <> Sheet2.Cells(i, j).Value Then
        '设置为红色
        Sheet2.Cells(i, j).Interior.Color = RGB(255, 0, 0)
        End If
        
    Next

Next

End Sub

 

可执行方法

Select（选择表单sheet）

1. 根据自动生成sheet名称，示例：sheet1
2. 根据自定义sheet名称，示例：sheets("1月")
3. 根据自动生成sheet的位置顺序，示例：sheets(1)

Add（添加）

　　Sheets.Add (Before,After,Count,Type) As Object

　　示例：Sheets.Add.after:=Sheet3,Count:=3

Delete（删除）

　　

Copy

可获取属性

Count

Name