无法从powershell在excel中创建双向表。

Sub CreateTwoWayTable()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为你的工作表名称
    
    ' 设置表头
    ws.Range("A1") = "类别"
    ws.Range("B1") = "数值1"
    ws.Range("C1") = "数值2"
    
    ' 填充数据
    ws.Range("A2") = "类别1"
    ws.Range("B2") = 10
    ws.Range("C2") = 20
    
    ws.Range("A3") = "类别2"
    ws.Range("B3") = 15
    ws.Range("C3") = 25
    
    ' 创建双向表
    Dim rng As Range
    Set rng = ws.Range("A1").CurrentRegion
    ws.ListObjects.Add(xlSrcRange, rng, , xlYes).Name = "双向表"
    
    ' 设置格式
    ws.ListObjects("双向表").TableStyle = "TableStyleMedium9"
    
    ' 设置标题
    ws.Cells(1, 1).Font.Bold = True
    
    ' 调整列宽
    ws.Columns.AutoFit
End Sub