含双条件的VBA For循环语句整合及逐客户记录处理需求

我需要整合现有VBA代码，实现逐条处理客户记录的逻辑：先处理客户A的记录，完成第66行或第64行的隐藏操作；处理完成后，再从头依次处理客户B、C、D……感谢之前帮我解答For循环相关问题的朋友。

现有代码片段 #

片段1：模板工作表行隐藏逻辑 #

Dim c As Range
Dim d As Range
With ThisWorkbook.Sheets("Template")
    .Rows.EntireRow.Hidden = False
    .Activate
    For Each c In .Range("E27,E32,E35,L36,L37,E39,E40,E41,E42,E43,E44,E45,E46,E49,E50,E51")
        If c.Value = 0 Then
            c.EntireRow.Hidden = True
        Else
            c.EntireRow.Hidden = False
        End If
    Next
End With

With Worksheets("Template")
    If .Range("E26").Value = 0 Or .Range("E27") = 0 Then
        Worksheets("Template").Rows("69").EntireRow.Hidden = True
    Else
        Worksheets("Template").Rows("69").EntireRow.Hidden = False
    End If
    If .Range("E32").Value = 0 Then
        Worksheets("Template").Rows("70").EntireRow.Hidden = True
    Else
        Worksheets("Template").Rows("70").EntireRow.Hidden = False
    End If
End With

片段2：遍历数据行的RSU判断逻辑 #

Dim r As Range
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Worksheets("Data File")
For Each r In ws2.Range("CU3:CU5")
    If r.Value = "RSU" And r.Offset(0, 1).Value = "Y" Then
        Worksheets("Template").Rows("66").EntireRow.Hidden = False
        Worksheets("Template").Rows("64").EntireRow.Hidden = True
    Else
        Worksheets("Template").Rows("66").EntireRow.Hidden = True
        Worksheets("Template").Rows("64").EntireRow.Hidden = False
    End If
Next r

整合后的代码实现 #

将客户记录遍历循环放在最外层，每次循环先处理当前客户的数据加载（需根据实际需求补充数据复制逻辑），再执行模板行隐藏逻辑，处理完成后可添加导出/保存等操作，最后重置模板状态处理下一个客户：

Sub ProcessEachCustomer()
    Dim wsData As Worksheet, wsTemplate As Worksheet
    Dim customerRow As Range
    Dim c As Range
    
    ' 初始化工作表对象
    Set wsData = ThisWorkbook.Worksheets("Data File")
    Set wsTemplate = ThisWorkbook.Worksheets("Template")
    
    ' 遍历每条客户记录（此处以CU3:CU5为例，可根据实际范围调整）
    For Each customerRow In wsData.Range("CU3:CU5")
        ' 1. 重置模板行可见性，避免上一个客户的状态干扰当前处理
        wsTemplate.Rows.EntireRow.Hidden = False
        
        ' --------------------------
        ' 注：此处需补充代码，将当前客户的数据从Data File复制到Template对应单元格
        ' 示例：wsTemplate.Range("E26").Value = customerRow.Offset(0, 2).Value （2为数据对应列的偏移量）
        ' --------------------------
        
        ' 2. 执行模板行隐藏逻辑（复用片段1的逻辑）
        For Each c In wsTemplate.Range("E27,E32,E35,L36,L37,E39,E40,E41,E42,E43,E44,E45,E46,E49,E50,E51")
            c.EntireRow.Hidden = (c.Value = 0)
        Next c
        
        ' 处理第69行和70行的隐藏
        wsTemplate.Rows("69").EntireRow.Hidden = (wsTemplate.Range("E26").Value = 0 Or wsTemplate.Range("E27").Value = 0)
        wsTemplate.Rows("70").EntireRow.Hidden = (wsTemplate.Range("E32").Value = 0)
        
        ' 3. 处理第64/66行的隐藏（复用片段2的逻辑）
        If customerRow.Value = "RSU" And customerRow.Offset(0, 1).Value = "Y" Then
            wsTemplate.Rows("66").EntireRow.Hidden = False
            wsTemplate.Rows("64").EntireRow.Hidden = True
        Else
            wsTemplate.Rows("66").EntireRow.Hidden = True
            wsTemplate.Rows("64").EntireRow.Hidden = False
        End If
        
        ' --------------------------
        ' 注：此处可添加代码，将处理后的模板导出为PDF/保存为新文件等
        ' 示例：wsTemplate.ExportAsFixedFormat Type:=xlTypePDF, Filename:="客户_" & customerRow.Offset(0, 3).Value & ".pdf"
        ' --------------------------
    Next customerRow
End Sub

关键说明 #

• 外层循环遍历Data File中的客户记录，确保逐条处理
• 每次循环开头重置模板行可见性，消除历史状态影响
• 简化了行隐藏的判断写法，直接将布尔判断结果赋值给Hidden属性，代码更简洁
• 保留了两处注释提示，需根据实际数据对应关系完善数据复制和导出逻辑

内容的提问来源于stack exchange，提问作者Ivan Huang