Excelの連続した行のセットで別々のループを実行する方法

Question

列の値に応じて異なる行のセットで独立したループを実行する必要があります。 1列目からn列目まで、そしてn + 1列目から18列目までの「火曜日」に繰り返される列値「月曜日」のループ。これらのループは連続して連続して実行する必要があります。例：

Answer 1

あなたが特定の日のために重複した時間を持っているかどうかを確認するために辞書を使用することができます。合計で、3つのネストされたループがあります。ワークシートのすべての行を最初に反復し、次に、指定した日のすべての行を反復処理し、最後の列を反復処理します。

各セルの最初の文字列（「Res01」、「Res02」など）には興味がないようですが、特定の日に同じ時刻があるかどうかを知りたい場合と、その複製の細胞。

また、指定した日に重複が必要なだけなので、その日に処理が開始されると辞書はクリアされます。辞書のキーは時間文字列であり、値はセルのアドレスです。各セルについて、マクロはその時間がすでに辞書に入っているかどうかをチェックします。それが複製であれば、元のセルと現在のセルの背景色の両方が変更されます。そうでない場合は、キーと値のペアが保存され、処理が続行されます。

重複を示す背景色（緑色/青色）を連続した日に変更して、違いをより簡単に表示することにしました。

Option Explicit 

Sub HighliteDiffs() 
    Dim sht As Worksheet 
    Set sht = Worksheets("Staff Schedule") 

    Dim r As Integer, c As Integer, clr As Integer: clr = 4 
    Dim curDay As String, val As String, addr As String 

    Dim dict As Object 
    Set dict = CreateObject("Scripting.Dictionary") 

    Dim rng As Range 

    With sht 
    Dim lastRow As Integer, lastCol As Integer 
    lastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row 

    r = 2 
    Do While r <= lastRow 
     If clr = 4 Then 
     clr = 5 
     Else 
     clr = 4 
     End If 
     dict.RemoveAll 
     curDay = Left(Cells(r, "A").Value, 11) 
     Do While curDay = Left(Cells(r, "A").Value, 11) 
     lastCol = .Cells(r, .Columns.Count).End(xlToLeft).Column 
     For c = 3 To lastCol 
      val = Right(.Cells(r, c).Value, 5) 
      If dict.Exists(val) Then 
      addr = dict(val) 
      Set rng = .Cells(Range(addr).Row, Range(addr).Column) 
      rng.Interior.ColorIndex = clr 
      .Cells(r, c).Interior.ColorIndex = clr 
      Else 
      dict(val) = .Cells(r, c).Address 
      End If 
     Next 
     r = r + 1 
     Loop 
    Loop 
    End With 

End Sub