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)，而不是表中单元格的实际位置。

换句话说，您只是在notification options 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

如果表单元格等于变量值

1 个答案: