VBA控制流最优方案咨询：适配四种数据集存在场景

三种方案的优劣分析 #

1. GoTo语句：直接放弃。这种写法会让代码逻辑跳来跳去，后期维护时很难理清流程，极易埋下bug，属于行业公认的不良编程习惯。
2. Select Case语句：可以实现需求，但如果后续新增数据集（比如加个D），分支会越来越多，代码会变得臃肿，维护性会下降。
3. 分Sub方案：完全可行，也是最优选择。逻辑拆分清晰，每个Sub只负责单一任务，易读易维护，效率上和其他方案几乎无差异（VBA里这种级别的调用开销可以忽略）。

具体实现代码 #

第一步：写一个判断数据集是否存在的辅助函数

先封装一个通用函数，用来检查指定数据集是否存在，避免重复写判断逻辑：

Function DoesDatasetExist(wb As Workbook, datasetName As String) As Boolean
    ' 这里替换成你实际判断数据集的逻辑，比如检查工作表、命名区域等
    ' 示例：假设数据集是工作簿中的命名区域
    On Error Resume Next
    Dim targetRange As Range
    Set targetRange = wb.Names(datasetName).RefersToRange
    DoesDatasetExist = Err.Number = 0 ' 没报错说明存在
    On Error GoTo 0
End Function

第二步：主逻辑Sub（负责判断场景，调用对应处理）

这个Sub是入口，先判断A、B的存在状态，再分发到对应的处理流程：

Sub MainProcess()
    Dim sourceWB As Workbook
    Set sourceWB = ThisWorkbook ' 替换成你的第一个工作簿对象
    
    Dim hasDatasetA As Boolean, hasDatasetB As Boolean
    ' 先确认A、B是否存在
    hasDatasetA = DoesDatasetExist(sourceWB, "DatasetA")
    hasDatasetB = DoesDatasetExist(sourceWB, "DatasetB")
    
    ' 分发到对应场景的处理Sub
    If Not hasDatasetA And Not hasDatasetB Then
        ' 两个数据集都不存在，直接退出
        Exit Sub
    ElseIf hasDatasetA And hasDatasetB Then
        ProcessBothAandB sourceWB
    ElseIf hasDatasetA Then
        ProcessOnlyA sourceWB
    Else
        ProcessOnlyB sourceWB
    End If
End Sub

第三步：各场景的独立处理Sub

每个Sub只处理一种场景，复用你已有的创建/格式化工作簿的Sub：

' 处理A+B都存在的场景
Sub ProcessBothAandB(sourceWB As Workbook)
    Dim arrA As Variant, arrB As Variant, arrC As Variant
    
    ' 提取A、B到数组（用你已有的提取逻辑，这里用GetDatasetArray示意）
    arrA = GetDatasetArray(sourceWB, "DatasetA")
    arrB = GetDatasetArray(sourceWB, "DatasetB")
    
    ' 调用你已有的Sub创建第二个工作簿，粘贴A和B
    CreateAndFormatWB2 arrA, arrB
    
    ' 计算月度求和得到C数组
    arrC = CalculateMonthlySum(arrA, arrB)
    ' 调用你已有的Sub创建第三个工作簿，粘贴C
    CreateAndFormatWB3 arrC
End Sub

' 处理仅A存在的场景
Sub ProcessOnlyA(sourceWB As Workbook)
    Dim arrA As Variant, arrC As Variant
    
    arrA = GetDatasetArray(sourceWB, "DatasetA")
    ' 调用创建第二个工作簿的Sub，只传A（需要你的CreateAndFormatWB2支持空参数处理）
    CreateAndFormatWB2 arrA, Empty
    
    ' 仅用A计算月度求和
    arrC = CalculateMonthlySum(arrA, Empty)
    CreateAndFormatWB3 arrC
End Sub

' 处理仅B存在的场景
Sub ProcessOnlyB(sourceWB As Workbook)
    Dim arrB As Variant, arrC As Variant
    
    arrB = GetDatasetArray(sourceWB, "DatasetB")
    ' 调用创建第二个工作簿的Sub，只传B
    CreateAndFormatWB2 Empty, arrB
    
    ' 仅用B计算月度求和
    arrC = CalculateMonthlySum(Empty, arrB)
    CreateAndFormatWB3 arrC
End Sub

配套调整说明 #

• GetDatasetArray：替换成你已有的提取数据集到数组的逻辑即可。
• CalculateMonthlySum：需要修改为支持单数据集求和，比如判断传入的数组是否为空，只对存在的数组做月度求和。
• CreateAndFormatWB2：需要调整参数接收逻辑，当其中一个数组为空时，只粘贴存在的数据集，对应的格式化步骤也要适配（比如只设置A的表头格式）。

方案优势 #

• 清晰易维护：每个场景的逻辑独立，修改某一个场景不会影响其他流程，非专业程序员也能快速看懂。
• 扩展性强：以后新增数据集（比如DatasetD），只需要新增判断分支和对应的处理Sub即可。
• 效率无损耗：VBA的Sub调用开销极小，完全不会影响运行效率。

内容的提问来源于stack exchange，提问作者David Vinnicombe