VBA：根據單元格中的特定值格式化和更改單元格值

Question

如果列中的兩個連續單元格是“#Name”，我希望下面將特定單元格的值更改為“Rank”

另外，如果單元格的格式可以是紅色，字體顏色可以是白色，而前面的單元格中的值可以是空的，顏色是藍色的，那會很有幫助

這是我寫的，但它不起作用，非常感謝指導-

Sub FormatRankColmn()
'
' FormatRankColmn Macro
'

'
Dim cell As Range

For Each cell In Range("D1:D250").SpecialCells(xlCellTypeConstants)

If cell.Offset(-1, 0).Value = "#NAME" Then
    If cell.Value = "#Name" Then
        Range(cell).Value = "Rank"
    End If
End If
Next
End Sub

Answer 1

您需要檢查第一行中的單元格，否則會引發錯誤（第 0 行中沒有單元格）： cell.Offset(-1, 0)

我相信這就是你所追求的：

Sub FormatRankColmn()

Dim cell As Range

For Each cell In Range("D1:D250").SpecialCells(xlCellTypeConstants)

If cell.Value = "#NAME" And cell.Row <> 1 Then
    If cell.Offset(-1, 0).Value = "#NAME" Then
        cell.Value = "Rank"
    End If
End If
Next
End Sub