使用数据处理宏简化抖音直播各类报表制作流程，缩减工作时间，所有代码均已模块化标注，可按需修改。
使用方法参见 Microsoft 官方文档：运行宏 ↗，可随意组合各模块、调整参数获取所需数据。
抖店数据处理#
本程序适用于「抖音电商罗盘-商家视角-直播-直播列表-直播间明细-下载明细」所导出报表。
功能：格式标准化、冗余数据清除、未结束场次数据清除、顺序排列、分列、冻结窗格、行列插入计算。
效果如图：
Sub 抖店数据处理()
'<禁止屏幕刷新 Begin>
Application.ScreenUpdating = False
'<禁止屏幕刷新 End>
'<清除当日未结束场次数据 Begin>
Dim yearValue As Integer
Dim lastRow As Long
lastRow = Cells(Rows.Count, "E").End(xlUp).Row
For i = lastRow To 2 Step -1
yearValue = Year(Cells(i, "E").Value)
If yearValue = 1970 Then
Cells(i, "E").EntireRow.Delete
End If
Next i
'<清除当日未结束场次数据 End>
'<将 F 列到 AM 列的单元格格式设为常规格式 Begin>
ActiveSheet.usedRange.Columns("F:AO").Value = ActiveSheet.usedRange.Columns("F:AO").Value
'<将 F 列到 AM 列的单元格格式设为常规格式 End>
'<筛选-按 D 列值升序排列 Begin>
Cells.AutoFilter
Application.ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range( _
"D1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With Application.ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'<筛选-按 D 列值升序排列 End>
'<在 E 列和 G 列前插入新列 Begin>
Columns("E:E").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("G:G").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
'<在 E 列和 G 列前插入新列 End>
'<将 D 列和 F 列按空格分列 Begin>
Columns("D:D").TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Columns("F:F").TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
'<将 D 列和 F 列按空格分列 End>
'<将 D 列、E 列、F 列列头赋值为“直播日期”、“开始时间”、“结束时间” Begin>
Range("D1").Select
ActiveCell.FormulaR1C1 = "直播日期"
Range("E1").Select
ActiveCell.FormulaR1C1 = "开始时间"
Range("G1").Select
ActiveCell.FormulaR1C1 = "结束时间"
'<将 D 列、E 列、F 列列头赋值为“直播日期”、“开始时间”、“结束时间” End>
'<直播时长(小时)列插入、计算 Begin>
Columns("I:I").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("I1").Select
ActiveCell.FormulaR1C1 = "直播时长(小时)"
Range("I2:I" & [e65536].End(xlUp).Row).Select
selection.FormulaR1C1 = "=RC[-1]/60"
'<直播时长(小时)列插入、计算 End>
'<人均观看时长(秒)列插入、计算 Begin>
Columns("Q:Q").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("Q1").Select
ActiveCell.FormulaR1C1 = "人均观看时长(秒)"
Range("Q2:Q" & [e65536].End(xlUp).Row).Select
selection.FormulaR1C1 = "=RC[1]*60"
'<人均观看时长(秒)列插入、计算 End>
'<直播间成交金额(含预售)列插入、计算 Begin>
Columns("AD:AD").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("AD1").Select
ActiveCell.FormulaR1C1 = "直播间成交金额(含预售)"
Range("AD2:AD" & [e65536].End(xlUp).Row).Select
selection.FormulaR1C1 = "=RC[1]+RC[16]"
'<直播间成交金额(含预售)列插入、计算 End>
'<直播间成交订单数(含预售)列插入、计算 Begin>
Columns("AC:AC").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("AC1").Select
ActiveCell.FormulaR1C1 = "直播间成交订单数(含预售)"
Range("AC2:AC" & [e65536].End(xlUp).Row).Select
selection.FormulaR1C1 = "=RC[1]+RC[17]"
'<直播间成交订单数(含预售)列插入、计算 End>
'<清除公式 Begin>
With ActiveSheet
.usedRange.Columns("I").Value = .usedRange.Columns("I").Value
.usedRange.Columns("Q").Value = .usedRange.Columns("Q").Value
.usedRange.Columns("AC").Value = .usedRange.Columns("AC").Value
.usedRange.Columns("AE").Value = .usedRange.Columns("AE").Value
End With
'<清除公式 End>
'<将 D 列、S 列的单元格格式分别设为保留一位小数的数字、百分比 Begin>
Range("I2:I" & [e65536].End(xlUp).Row).NumberFormatLocal = "0.0"
Range("W2:W" & [e65536].End(xlUp).Row).NumberFormatLocal = "0.0%"
'<将 D 列、S 列的单元格格式分别设为保留一位小数的数字、百分比 End>
'<自动调整行高、列宽 Begin>
Cells.EntireColumn.AutoFit
Cells.EntireRow.AutoFit
'<自动调整行高、列宽 End>
'<隐藏无关列 Begin>
Range("A:C,F:F,H:H,K:K,M:M,R:R,T:T,V:V,X:X,AA:AB,AD:AD,AF:AH,AJ:AJ,AL:AU").Select
selection.EntireColumn.Hidden = True
'<隐藏无关列 End>
'<冻结窗格 Begin>
Range("E2").Select
ActiveWindow.FreezePanes = True
'<冻结窗格 End>
'<复位 Begin>
Range("D1").Select
'<复位 End>
'<保存 Begin>
ActiveWorkbook.Save
'<保存 End>
'<启用屏幕刷新 Begin>
Application.ScreenUpdating = True
'<启用屏幕刷新 End>
End SubPOWER QUERY 实现：
let
源 = Excel.CurrentWorkbook(){[Name="数据源"]}[Content],
直播开始时间分列 = Table.SplitColumn(源, "直播开始时间", Splitter.SplitTextByEachDelimiter({" "}, QuoteStyle.None, false), {"直播开始日期", "直播开始时间"}),
直播结束时间分列 = Table.SplitColumn(直播开始时间分列, "直播结束时间", Splitter.SplitTextByEachDelimiter({" "}, QuoteStyle.None, false), {"直播结束日期", "直播结束时间"}),
#"更改直播开始日期、直播开始时间、直播结束时间格式" = Table.TransformColumnTypes(直播结束时间分列,{{"直播开始日期", type date},{"直播开始时间", type time},{"直播结束时间", type time}}),
#"直播时长(小时)新建列、计算" = Table.AddColumn(#"更改直播开始日期、直播开始时间、直播结束时间格式", "直播时长(小时)", each [#"直播时长(分钟)"]/60),
#"人均观看时长(秒)新建列、计算" = Table.AddColumn(#"直播时长(小时)新建列、计算", "人均观看时长(秒)", each [#"人均观看时长(分钟)"]*60),
#"直播间成交金额(含预售)新建列、计算" = Table.AddColumn(#"人均观看时长(秒)新建列、计算", "直播间成交金额(含预售)", each [直播间成交金额]+[预售全款金额]),
#"直播间成交订单数(含预售)新建列、计算" = Table.AddColumn(#"直播间成交金额(含预售)新建列、计算", "直播间成交订单数(含预售)", each [直播间成交订单数]+[预售订单数])
in
#"直播间成交订单数(含预售)新建列、计算"达人数据处理#
本程序适用于「抖音电商罗盘-达人视角-直播明细-下载明细」所导出报表。
功能：时间顺序排列数据、自动调整列宽行高。
效果如图：
Sub 达人数据处理()
'<禁止屏幕刷新 Begin>
Application.ScreenUpdating = False
'<禁止屏幕刷新 End>
'<筛选-按 C 列值升序排列 Begin>
Cells.AutoFilter
Application.ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range( _
"C1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With Application.ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'<筛选-按 C 列值升序排列 End>
'<自动调整行高、列宽 Begin>
Cells.EntireColumn.AutoFit
Cells.EntireRow.AutoFit
'<自动调整行高、列宽 End>
'<复位 Begin>
Range("A1").Select
'<复位 End>
'<保存 Begin>
ActiveWorkbook.Save
'<保存 End>
'<启用屏幕刷新 Begin>
Application.ScreenUpdating = True
'<启用屏幕刷新 End>
End Sub流量数据处理#
本程序适用于「抖音电商罗盘-商家视角-直播-直播列表-直播间明细-数据详情-下载」所导出报表。
功能：自动匹配直播间流量数据并清除公式。
需提前预备以下匹配源，全选复制即可粘贴至表格内：
| 渠道 | 12月1日 |
|---|---|
| 推荐feed | |
| 直播广场 | |
| 同城 | |
| 其他推荐场景 | |
| 短视频引流 | |
| 关注 | |
| 搜索 | |
| 个人主页&店铺&橱窗 | |
| 抖音商城推荐 | |
| 活动页 | |
| 头条西瓜 | |
| 其他 | |
| 小店随心推 | |
| 品牌广告 | |
| 千川品牌广告 | |
| 千川PC版 | |
| 其他广告 |
请按注释设置 ChDir、XFD、RC 三项参数再运行本程序。
Sub 流量数据处理·观看次数()
'<禁止屏幕刷新 Begin>
Application.ScreenUpdating = False
'<禁止屏幕刷新 End>
'<更新观看次数 Begin>
ChDir "C:\Users\Haku\Downloads" '此处设置为下载文件夹地址
Range("XFD21").End(xlToLeft).Offset(0, 1).Resize(17, 1).Select 'XFD后数字设置为「推荐feed」单元格所在行号
Selection.FormulaR1C1 = _
"=VLOOKUP(RC1,'[直播间详情页.xlsx]流量分析-渠道分析'!C1:C3,3,FALSE)" 'RC后数字设置为「匹配数据列」所在列号
'<更新观看次数 End>
'<清除公式 Begin>
Selection.Value = Selection.Value
'<清除公式 End>
'<替换汉字万 Begin>
Selection.Replace What:="万", Replacement:="e4", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'<替换汉字万 End>
'<将单元格格式设为不保留小数的数字 Begin>
Selection.NumberFormatLocal = "0"
'<将单元格格式设为不保留小数的数字 End>
'<启用屏幕刷新 Begin>
Application.ScreenUpdating = True
'<启用屏幕刷新 End>
End SubSub 流量数据处理·成交订单数()
'<禁止屏幕刷新 Begin>
Application.ScreenUpdating = False
'<禁止屏幕刷新 End>
'<更新成交订单数 Begin>
ChDir "C:\Users\Haku\Downloads" '此处设置为下载文件夹地址
Range("XFD61").End(xlToLeft).Offset(0, 1).Resize(17, 1).Select 'XFD后数字设置为「推荐feed」单元格所在行号
Selection.FormulaR1C1 = _
"=VLOOKUP(RC1,'[直播间详情页.xlsx]流量分析-渠道分析'!C1:C7,7,FALSE)" 'RC后数字设置为「匹配数据列」所在列号
'<更新成交订单数 End>
'<清除公式 Begin>
Selection.Value = Selection.Value
'<清除公式 End>
'<启用屏幕刷新 Begin>
Application.ScreenUpdating = True
'<启用屏幕刷新 End>
End SubSub 流量数据处理·成交金额()
'<禁止屏幕刷新 Begin>
Application.ScreenUpdating = False
'<禁止屏幕刷新 End>
'<更新成交金额 Begin>
ChDir "C:\Users\Haku\Downloads" '此处设置为下载文件夹地址
Range("XFD101").End(xlToLeft).Offset(0, 1).Resize(17, 1).Select 'XFD后数字设置为「推荐feed」单元格所在行号
Selection.FormulaR1C1 = _
"=VLOOKUP(RC1,'[直播间详情页.xlsx]流量分析-渠道分析'!C1:C6,6,FALSE)" 'RC后数字设置为「匹配数据列」所在列号
'<更新成交金额 End>
'<清除公式 Begin>
Selection.Value = Selection.Value
'<清除公式 End>
'<去除货币符号 Begin>
Dim rng As Range
For Each rng In Selection '范围为选区
rng.Value = Mid(rng.Value, 2) '从第二个字符开始截取，即去掉货币符号
Next rng
'<去除货币符号 End>
'<将单元格格式设为万 Begin>
Selection.NumberFormatLocal = "0\.0,万"
'<将单元格格式设为万 End>
'<启用屏幕刷新 Begin>
Application.ScreenUpdating = True
'<启用屏幕刷新 End>
End SubSub 流量数据处理·人均观看时长()
Dim rng As Range
Dim cell As Range
Dim arr As Variant
Dim min As Long
Dim sec As Long
'<禁止屏幕刷新 Begin>
Application.ScreenUpdating = False
'<禁止屏幕刷新 End>
'<更新人均观看时长 Begin>
ChDir "C:\Users\Haku\Downloads" '此处设置为下载文件夹地址
Range("XFD141").End(xlToLeft).Offset(0, 1).Resize(17, 1).Select 'XFD后数字设置为「推荐feed」单元格所在行号
Selection.FormulaR1C1 = _
"=VLOOKUP(RC1,'[直播间详情页.xlsx]流量分析-渠道分析'!C1:C2,2,FALSE)" 'RC后数字设置为「匹配数据列」所在列号
'<更新人均观看时长 End>
'<清除公式 Begin>
Selection.Value = Selection.Value
'<清除公式 End>
'<计算时长 Begin>
Set rng = Selection '设置转换范围为选区
For Each cell In rng '遍历每个单元格
If InStr(cell.Value, "分钟") > 0 Then '检查是否包含"分钟"
arr = Split(cell.Value, "分钟") '分割文本
min = Val(arr(0)) '转换为分钟数
If InStr(arr(1), "秒") > 0 Then '检查是否包含"秒"
sec = Val(Left(arr(1), Len(arr(1)) - 1)) '提取并转换为秒数
Else '不包含"秒"
sec = 0 '设置秒数为0
End If
Else '不包含"分钟"
min = 0 '设置分钟数为0
sec = Val(Left(cell.Value, Len(cell.Value) - 1)) '提取并转换为秒数
End If
cell.Value = min * 60 + sec '写入值
Next cell
'<计算时长 End>
'<启用屏幕刷新 Begin>
Application.ScreenUpdating = True
'<启用屏幕刷新 End>
End SubSub 流量数据处理·互动率()
'<禁止屏幕刷新 Begin>
Application.ScreenUpdating = False
'<禁止屏幕刷新 End>
'<更新互动率 Begin>
ChDir "C:\Users\Haku\Downloads" '此处设置为下载文件夹地址
Range("XFD161").End(xlToLeft).Offset(0, 1).Resize(17, 1).Select 'XFD后数字设置为「推荐feed」单元格所在行号
Selection.FormulaR1C1 = _
"=VLOOKUP(RC1,'[直播间详情页.xlsx]流量分析-渠道分析'!C1:C5,5,FALSE)" 'RC后数字设置为「匹配数据列」所在列号
'<更新互动率 End>
'<清除公式 Begin>
Selection.Value = Selection.Value
'<清除公式 End>
'<将单元格格式设为百分比 Begin>
Selection.NumberFormatLocal = "0%"
'<将单元格格式设为百分比 End>
'<启用屏幕刷新 Begin>
Application.ScreenUpdating = True
'<启用屏幕刷新 End>
End Sub千川数据处理#
本程序适用于「巨量千川-竞价推广-计划详情-数据-下载数据表格」所导出报表。
功能：时间顺序排列数据、去除表头、复制数据。
效果如图：
Sub 千川数据处理()
'<禁止屏幕刷新 Begin>
Application.ScreenUpdating = False
'<禁止屏幕刷新 End>
'<清除汇总行 Begin>
Dim c As Range
Dim r As Long
For r = ActiveSheet.usedRange.Rows.Count To 1 Step -1
If Left(Cells(r, 3).Value, 2) = "汇总" Then
Rows(r).Delete
End If
Next r
'<清除汇总行 End>
'<调整日期格式 Begin>
With ActiveSheet
.usedRange.Columns("C").Offset(1).Select '选择 D 列向下偏移 1 行已使用单元格
End With
selection.Replace What:="-", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
'<调整日期格式 End>
'<将 A 列单元格格式设为文本 Begin>
Range("A2:A" & [e65536].End(xlUp).Row).NumberFormatLocal = "@"
'<将 A 列单元格格式设为文本 End>
'<保存当前工作簿 Begin>
ActiveWorkbook.Save
'<保存当前工作簿 End>
'<复制全域数据 Begin>
With ActiveSheet
.usedRange.Offset(1).Copy
End With
'<复制全域数据 End>
'<启用屏幕刷新 Begin>
Application.ScreenUpdating = True
'<启用屏幕刷新 End>
End Sub飞瓜数据处理#
本程序适用于「飞瓜数据（抖音版）-品牌详情-商品分析」所导出报表。
功能：格式标准化、冗余数据清除、分列、销量销额均值计算。
效果如图：
Sub 飞瓜数据处理()
'<禁止屏幕刷新 Begin>
Application.ScreenUpdating = False
'<禁止屏幕刷新 End>
'<删除无用数据 Begin>
Rows("1:1").Delete Shift:=xlUp
Columns("B:B").Delete Shift:=xlToLeft
Columns("D:E").Delete Shift:=xlToLeft
Columns("F:I").Delete Shift:=xlToLeft
'<删除无用数据 End>
'<插入列 Begin>
Columns("E:E").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
'<插入列 End>
'<替换汉字万 Begin>
Columns("D:D").Select
Cells.Replace What:="w", Replacement:="e4", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False, _
FormulaVersion:=xlReplaceFormula2
'<替换汉字万 End>
'<分列 Begin>
Columns("D:D").TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="-", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
Columns("F:F").TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
'<分列 End>
'<预估销售额、预估销量均值列插入、计算 Begin>
Columns("F:F").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("F2:F" & [e65536].End(xlUp).Row).FormulaR1C1 = "=(RC[-2]+RC[-1])/2"
Range("I2:I" & [e65536].End(xlUp).Row).FormulaR1C1 = "=(RC[-2]+RC[-1])/2"
'<预估销售额、预估销量均值列插入、计算 End>
'<预估销售额、预估销量列列头 Begin>
Range("I1").Select
ActiveCell.FormulaR1C1 = "预估销量"
Range("F1").Select
ActiveCell.FormulaR1C1 = "预估销售额"
'<预估销售额、预估销量列列头 End>
'<清除公式 Begin>
ActiveSheet.UsedRange.Columns("F").Value = ActiveSheet.UsedRange.Columns("F").Value
ActiveSheet.UsedRange.Columns("I").Value = ActiveSheet.UsedRange.Columns("I").Value
'<清除公式 End>
'<将 F 列到 AM 列的单元格格式设为常规格式 Begin>
ActiveSheet.UsedRange.Columns("C").Value = ActiveSheet.UsedRange.Columns("C").Value
'<将 F 列到 AM 列的单元格格式设为常规格式 End>
'<删除无用列 Begin>
Columns("D:E").Delete Shift:=xlToLeft
Columns("E:F").Delete Shift:=xlToLeft
'<删除无用列 End>
'<调整数值格式 Begin>
Range("D2:D" & [e65536].End(xlUp).Row).NumberFormatLocal = "0"
'<调整数值格式 End>
'<自动调整行高、列宽 Begin>
Cells.EntireColumn.AutoFit
Cells.EntireRow.AutoFit
'<自动调整行高、列宽 End>
'<复位 Begin>
Range("A1").Select
'<复位 End>
'<保存 Begin>
ActiveWorkbook.Save
'<保存 End>
'<启用屏幕刷新 Begin>
Application.ScreenUpdating = True
'<启用屏幕刷新 End>
End Sub