通过VBA实现数据透视表，以及vlookup等公式

公司项目需求，贴上来记录一下。

Sub main()

pivot              '生成透视表

insert_col_weight  '计算装运单合并总毛重

insert_col_classificaton    '计算新合同重量坎级

insert_col_union    '合并合同运价策略和新合同重量坎级

insert_col_price    '新合同单价

End Sub

Sub pivot()

Dim tabRange As Range
Dim tabCache As PivotCache
Dim tabDin As PivotTable

Set tabRange = Cells(1, 1).CurrentRegion

Set tabCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=tabRange)

ActiveWorkbook.Sheets.Add
ActiveSheet.Name = "PivotTable"

Set tabDin = tabCache.CreatePivotTable(tabledestination:=Cells(1, 1), TableName:="pivottable1")

tabDin.PivotFields("合并").Orientation = xlRowField

With tabDin.PivotFields("装运单总毛重")
    .Orientation = xlDataField
    .Function = xlSum
End With

End S