使用VBA创建表或从具有相同数据的多个选项卡中创建数据透视表(不能PowerPivot)

VBA（Visual Basic for Applications）是一种用于自动化任务和定制应用程序的编程语言，常用于Microsoft Office套件中的各种应用程序，如Excel、Word和Access等。在Excel中，可以使用VBA来创建表或从具有相同数据的多个选项卡中创建数据透视表。

创建表：使用VBA可以通过以下步骤来创建表：

打开Excel，并进入开发人员模式（如果没有开发人员选项卡，需要先启用它）。
在开发人员选项卡中，点击“Visual Basic”按钮，打开VBA编辑器。
在VBA编辑器中，可以使用各种VBA代码来创建表。例如，可以使用Range对象来定义表的范围，并使用Cells属性来设置单元格的值和格式。

示例代码如下：

Sub CreateTable()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 创建新工作表
    Set ws = ThisWorkbook.Sheets.Add
    
    ' 定义表的范围
    Set rng = ws.Range("A1:C5")
    
    ' 设置表头
    rng.Cells(1, 1).Value = "姓名"
    rng.Cells(1, 2).Value = "年龄"
    rng.Cells(1, 3).Value = "性别"
    
    ' 设置数据
    rng.Cells(2, 1).Value = "张三"
    rng.Cells(2, 2).Value = 25
    rng.Cells(2, 3).Value = "男"
    
    ' 设置格式
    rng.Font.Bold = True
    rng.Borders.LineStyle = xlContinuous
    
    ' 自动调整列宽
    rng.EntireColumn.AutoFit
End Sub

从具有相同数据的多个选项卡中创建数据透视表：使用VBA可以通过以下步骤来从具有相同数据的多个选项卡中创建数据透视表：

打开Excel，并进入开发人员模式。
在开发人员选项卡中，点击“Visual Basic”按钮，打开VBA编辑器。
在VBA编辑器中，可以使用各种VBA代码来创建数据透视表。首先需要定义数据源范围，然后使用PivotTable对象来创建数据透视表。

示例代码如下：

Sub CreatePivotTableFromTabs()
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim pc As PivotCache
    
    ' 创建新工作表
    Set ws = ThisWorkbook.Sheets.Add
    
    ' 定义数据源范围
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:C10")
    
    ' 创建数据透视表缓存
    Set pc = ThisWorkbook.PivotCaches.Create(xlDatabase, rng)
    
    ' 在新工作表上创建数据透视表
    Set pt = ws.PivotTables.Add(pc, ws.Range("A1"), "PivotTable1")
    
    ' 设置行、列和值
    pt.PivotFields("姓名").Orientation = xlRowField
    pt.PivotFields("性别").Orientation = xlColumnField
    pt.PivotFields("年龄").Orientation = xlDataField
    
    ' 设置格式
    pt.TableRange2.Font.Bold = True
    pt.TableRange2.Borders.LineStyle = xlContinuous
    
    ' 自动调整列宽
    pt.TableRange2.EntireColumn.AutoFit
End Sub

以上代码示例中，创建了一个表格和一个数据透视表，并设置了相应的表头、数据和格式。可以根据实际需求进行修改和扩展。

对于腾讯云相关产品和产品介绍链接地址，由于要求不能提及具体品牌商，建议在腾讯云官方网站上查找相关产品和文档，以获取最新的信息和链接地址。