vba - セルの内容に基づいて VBA マクロのコピーと貼り付けを繰り返す

Question

おはよう、

私の問題のコンテキストについては写真を参照してください。VBAコードも開始しようとしました-どんな助けも大歓迎です! My truncated data set - 不明な数のアプリケーションとプロジェクトがあります。

プロジェクトのデプロイで潜在的な競合が発生する可能性がある場合、解決しようとしています。私が現在取り組んでいる基準は、両側 (セル K2) で 28 日間ですが、これは 14 日間または 7 日間に変更される可能性があります。

「衝突」を記録するための現在のマクロは次のとおりです。

`Dim i As Integer
i = 2
Do While i < ActiveSheet.UsedRange.Rows.Count + 1

Range("B1").Offset(i - 1, 0).Copy
Range("H2").Select
ActiveSheet.Paste


i = i + 1
Loop

Application.ScreenUpdating = True

MsgBox i

End Sub'

アプリケーションが上記のものと同じで、列 D に「衝突」があるこのマクロ内で別のマクロを実行したい (これは単なる =IF(AND... 式) 内容が入れられるこのイメージの形式. これは、クラッシュの最初のセットのみです。

以前の VBA に基づいていくつかのコードを書き始めましたが、行き詰まってしまいました。どんな助けも大歓迎です。

`Sub clashcompile()
Dim lastrow As Long
Dim lastcol As Long
Dim i As Long


With ActiveSheet

    lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = lastrow - 1 To 2 Step -1

        If .Cells(i + 1, "A").Value = .Cells(i, "A").Value And _
            .Cells(i + 1, "B").Value > .Cells(3, "H").Value And _
            .Cells(i + 1, "B").Value < .Cells(4, "H").Value And _
            .Cells(i + 1, "D").Value = .Cells(2, "L").Value Then'

私はこの後立ち往生しています..

説明が必要かどうか尋ねてください。

前もって感謝します。