VBA-我该怎么做；询问；要使用excel，请搜索内容中包含0的单元格，如果其上方的单元格为'；它不是空的吗？

我已经找过了，但是没有成功。我对VBA的理解很差。因此，很难进行搜索

我打算学习和了解更多关于这一点，但我需要知道这么多来解决这个问题和完成一项工作

---

你们有人能帮我吗？

确保相应地更改范围

Sub Test()
Dim rng As Range, cell As Range

Set rng = Range("A1:G100")
Range("A1").Select
    For Each cell In rng
    Cells.Find(What:=0, After:=ActiveCell, SearchOrder:=xlByRows, SearchDirection:=xlNext).Select
    If (ActiveCell.Row) <> 1 Then
    If Not IsEmpty(ActiveCell.Offset(-1).Value) Then
     ActiveCell.Select
     With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
         End With
     End If
     End If
Next cell
End Sub

子测试（）
变暗rng作为范围，单元格作为范围
设置rng=范围（“A1:G100”）
范围（“A1”）。选择
对于rng中的每个单元
Cells.Find（What:=0，After:=ActiveCell，SearchOrder:=xlByRows，SearchDirection:=xlNext）。选择
如果（ActiveCell.Row）为1，则
如果不是IsEmpty（ActiveCell.Offset（-1）.Value），则
ActiveCell。选择
有选择。内饰
.Pattern=xlSolid
.PatternColorIndex=xlAutomatic
.Color=65535
.TintAndShade=0
.PatternTintAndShade=0
以
如果结束
如果结束
下一个细胞
端接头

Slubee，非常感谢！我的spreedsheet有问题，但我会尽快测试代码！在这之后，我回到这里发布反馈。再次感谢你！出了点问题。突出显示的内容与我的意图相反。也就是说，在内容中用1突出显示单元格。我已经尝试将行“If（ActiveCell.Row）1 Then”替换为“If（ActiveCell.Row）0 Then”。这样我得到了不同的结果，但不是我想要的结果。如果Activecell.row 0是为了确保您不在第一行。你想突出显示上面的单元格是否为空？谢谢你的解释。无论如何，我想突出显示上面的单元格是否为空。