同一工作表中的表格

在同一工作表中创建表格可以使用Excel的宏语言VBA来实现。下面是一个示例代码，演示如何在Excel中创建一个表格：

Sub CreateTable()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim rng As Range
    
    ' 获取当前激活的工作表
    Set ws = ActiveSheet
    
    ' 设置表格的数据范围
    Set rng = ws.Range("A1:D5")
    
    ' 在数据范围内创建一个表格
    Set tbl = ws.ListObjects.Add(xlSrcRange, rng, , xlYes)
    
    ' 设置表格的样式
    tbl.TableStyle = "TableStyleMedium9"
    
    ' 设置表格的名称
    tbl.Name = "MyTable"
    
    ' 设置表格的标题
    tbl.HeaderRowRange.Value = Array("姓名", "年龄", "性别", "职业")
    
    ' 启用自动筛选
    tbl.Range.AutoFilter
    
    ' 设置表格的总体样式
    tbl.TableStyle = "TableStyleMedium9"
    
    ' 设置表格的样式
    tbl.TableStyle = "TableStyleMedium9"
    
    ' 设置表格的样式
    tbl.TableStyle = "TableStyleMedium9"
    
End Sub

这段代码会在当前活动的工作表中创建一个表格，表格的数据范围是A1:D5，表头为"姓名"、"年龄"、"性别"、"职业"，并启用自动筛选。你可以根据自己的需求修改代码中的数据范围、表头和表格样式。