循环以有条件地设置多个工作表上区域中单元格的格式

Question

我正在尝试有条件地格式化多个工作表中的单元格。范围的大小因工作表而异(可能每月(。每个工作表都有一个标题，列数会不同，但要格式化的数据将始终从 A6 开始。

我成功选择了每张纸上的最后一个单元格，并成功格式化了每个工作表上的几个单元格。但是，当我尝试组合这些步骤时，我没有成功。

Sub comfor()
Dim ws As Worksheet, LstR As Range
For Each ws In ActiveWorkbook.Sheets
  Set LstR = ws.Range("A6").SpecialCells(xlLastCell)
       For Each cell In LstR
         If cell.Text = "Complete" Then
            cell.Font.Color = 5287936
            cell.Replace What:="Complete", Replacement:="R"
            cell.Font.Name = "Wingdings 2"
        End If
        Next cell
  Next ws
End Sub

谢谢！

Answer 1

像这样的东西(未经测试(

Sub comfor()
    Dim ws As Worksheet, cell As Range
    For Each ws In ActiveWorkbook.Sheets
       For Each cell In ws.range(ws.range("A6"), _
                                 ws.Range("A6").SpecialCells(xlLastCell)).cells
           With cell  
               If .Text = "Complete" Then
                   .Font.Color = 5287936
                   .Value ="R"
                   .Font.Name = "Wingdings 2"
               End If
           End with
        Next cell
    Next ws
End Sub