1

早上好，

请查看照片以了解我的问题的上下文，我也尝试启动 VBA 代码 - 任何帮助将不胜感激！ 我的截断数据集- 应用程序和项目的数量未知。

我正在努力解决项目部署中可能存在潜在冲突的情况。我目前正在制定的标准是每边 28 天（单元格 K2），这可能会更改为 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'

我被困在这之后..

请询问是否需要任何澄清。

提前致谢。

4

0 回答 0