Question

我正在尝试遍历excel中的表。表格范围为（A1：C50）。 A列是序列号，B列是收入，C列是总计。

我有一个单元格D10，它是一个随机序列号。我想遍历表格并检查表格中的序列号是否与D10中的序列号相对应，并删除该行的相应收入单元格。是否可以使用VBA。

提前非常感谢你。

Answer 1

For x = 1 To 50
  If Cells(x, 1).Value = Cells(10, 4).Value Then
    Cells(x, 2).Value = ""
  End If
Next x

Answer 2

Sub DeleteIncome()
    Dim serialNumbers as Range, cl as Range, randomSerialNumber as Range
    Set serialNumbers = Range("A1:A50")
    Set randomSerialNumber = Range("D10")

    For each cl in serialNumbers
        If cl.value = randomSerialNumber.value Then
           cl.offset(0,1) = ""
        End if
    Next cl
End Sub

Excel循环遍历表并删除特定单元格

2 个答案: