Excel - using VBA

Question

我对使用宏很陌生，所以我想我可以在这样的简单查询中寻求一些帮助......我正在尝试运行一个 VBA，其中：

如果 D5 为空，则 E5 中的 clearcontent;如果 E5 为空白，则 F5 中的 clearcontent 通过 D100/E100/F100 一直重复此操作。

希望这能澄清它。

谢谢！

编辑：为了回应"努力先尝试解决它"，这是我最初的编码(谷歌搜索也有帮助(，但它只看了一行，这就是我提出问题的原因

If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D5")) Is Nothing Then
Range("E5").ClearContents
End If
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E5")) Is Nothing Then
Range("F5").ClearContents
End If

结束子

Answer 1

试试这段代码:)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Long
If Target.Column = 4 Then
If IsEmpty(Cells(Target.Row, 4)) Then
Range("E" & Target.Row).ClearContents
Range("F" & Target.Row).ClearContents
End If
End If
End Sub

Answer 2

我不知道你为什么要这样做，因为它基本上会清除它发现为空的第一个单元格之后的每个单元格。 但是，嘿，我不知道你的项目。 这是一种快速而肮脏的方法。

For x = 5 to 100
If IsEmpty(cells(5, x)) then
Cells(5, x+1).Clear
Next