有条件地从上方的单元格填充空白行

Question

我最初使用一些脚本，其中工作表中数据的前3列中的空白行是从上一行填充的。 脚本是：

    Dim cell As Range, SearchRange As Range

    On Error Resume Next
    Set SearchRange = Columns("A:C").SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0

    If Not SearchRange Is Nothing Then
        For Each cell In SearchRange

          If cell.row > 1 Then cell = cell.Offset(-1, 0).Value

        Next cell
    End If

尽管这对于这些列之间的空白行很好，但是我有一个问题，即空白与DI列中的文本一起不希望填充。 我尝试了类似的东西：

   If Not Like "*FUEL*" Or Like "ACCOUNTS*"

但是我在条件语句中使用此语法时遇到麻烦。 我希望粘贴。 我只想在D列中的Jacqui单词旁边填充行，而不是Fuel或Accounts。 注意 Jacqui这个词不是恒定的。

Excel样本

Answer 1

使用cell.row引用D列。

Dim cell As Range, SearchRange As Range

On Error Resume Next
Set SearchRange = Columns("A:C").SpecialCells(xlCellTypeBlanks)
On Error GoTo 0

If Not SearchRange Is Nothing Then
    For Each cell In SearchRange
        If cell.Row > 1 And Not (Cells(cell.Row, "D") Like "ACCOUNTS*" Or Cells(cell.Row, "D") Like "FUEL*") Then _
            cell = cell.Offset(-1, 0).Value
    Next cell
End If