VBA中如何依次执行两个Do Until循环？先处理Daily再处理Weekly

你的代码里第二个循环不执行的核心原因是：第一个Do Until循环跑完后，rngC已经指向了MSS工作表C列最后一个非空单元格的下一个空单元格，此时第二个循环的Do Until rngC.Value = ""条件一开始就成立，循环直接跳过。另外原代码里检查"Task List"工作表存在时直接Exit Sub，这会导致如果工作表已经存在，后续的数据处理完全不执行，这也是一个隐藏bug。

以下是修正后的完整代码：

Private Sub PopulateTaskList()
    Dim wMS As Worksheet, wsTL As Worksheet, rngC As Range
    Dim boolExists As Boolean, i As Long
   
    ' 检查Task List工作表是否存在
    boolExists = False
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = "Task List" Then
            Set wsTL = Worksheets(i)
            boolExists = True
            ' 清空原有数据（保留第1行表头）
            wsTL.Rows("2:" & wsTL.Cells(wsTL.Rows.Count, "A").End(xlUp).Row).Clear
            Exit For ' 找到工作表后退出循环，不终止整个过程
        End If
    Next i
    ' 不存在则新建工作表
    If Not boolExists Then
        Set wsTL = Sheets.Add(After:=Sheets(Sheets.Count))
        wsTL.Name = "Task List"
        ' 可在此添加表头，示例：
        ' wsTL.Range("A1:D1") = Array("序号列", "频率", "内容列", "备注列")
    End If
    
    Set wMS = Worksheets("MSS")
    
    ' 第一个循环：处理所有Daily数据
    Set rngC = wMS.Range("C3")
    Do Until rngC.Value = ""
        If rngC.Value = "Daily" Then
            InsertTaskRow wsTL, rngC
        End If
        Set rngC = rngC.Offset(1)
    Loop
    
    ' 重置rngC到起始位置，处理Weekly数据
    Set rngC = wMS.Range("C3")
    Do Until rngC.Value = ""
        If rngC.Value = "Weekly" Then
            InsertTaskRow wsTL, rngC
        End If
        Set rngC = rngC.Offset(1)
    Loop
End Sub

' 提取重复的插入复制逻辑为子过程，简化代码
Private Sub InsertTaskRow(targetSheet As Worksheet, sourceCell As Range)
    targetSheet.Rows("2:2").EntireRow.Insert
    sourceCell.Copy targetSheet.Range("B2")
    sourceCell.Offset(0, 1).Copy targetSheet.Range("D2")
    sourceCell.Offset(0, -2).Copy targetSheet.Range("C2")
    sourceCell.Offset(0, -1).Copy targetSheet.Range("A2")
End Sub

关键修改点 #

• 修正工作表存在判断逻辑：找到"Task List"后不再直接终止过程，而是清空旧数据避免重复，继续执行后续处理
• 第二个循环前重置rngC到C3单元格，重新遍历MSS工作表的C列数据
• 将重复的行插入、单元格复制逻辑提取为独立子过程，减少代码冗余，提升可维护性

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