如果表单元格等于变量值

Question

我发现在单元格等于代码中指定的数字时删除行有很多帮助，但是如果单元格的值等于变量的值，则无法删除表行。

（这是我第一次尝试VBA，也是第一次使用这样的网站来寻求有关任何主题的帮助。我感谢您可以提供的任何帮助。）

Sub NeverGonnaWork

Dim x as String

x = Sheets("Sheet1").Range("B5").Value

Dim tbl as ListObject

Set tbl = Sheets("Sheet2").ListObjects("Table2")

'if column 15 in last row of the table equals x, delete that row of the table'

If Cells(tbl.ListRows.Count, (15)) = x then
tbl.ListRows(tbl.ListRows.Count).Delete

End If

End Sub

Answer 1

它“不起作用” ，因为您引用的是Worksheet.Cells(<amount of rows in table>, 15)而不是表中的实际单元格位置。

换句话说，您只是在excel Worksheet引用了一些“随机”单元格。

将您的代码更改为此，它应该可以工作；-)

Private Sub thisWillWork()

  Dim compVal as String: compVal = Sheets("Sheet1").Range("B5").Value2
  Dim tbl as ListObject: Set tbl = Sheets("Sheet2").ListObjects("Table2")

  If tbl.ListRows(tbl.ListRows.Count).Range(,15) = compVal Then
     tbl.ListRows(tbl.ListRows.Count).Delete
  End If

End Sub