循环遍历excel表中的特定列

Question

我想遍历一个excel表，并用颜色标记所有行，找到一个空单元格。这很有效。

但是我想现在指定它应该只搜索的列。 这是实际的代码：

Sub Mark_Empty()

Dim myTable As ListObject
Dim myArray As Variant


Set myTable = ActiveSheet.ListObjects("Table1")
Set myArray = myTable.DataBodyRange


For Each cell In myArray
    If IsEmpty(cell) = True Then cell.EntireRow.Interior.ColorIndex = 4
Next cell

End Sub

Answer 1

您可以使用Set myArray = myTable.ListColumns(2).Range选择特定列而不是整个表格。将2更改为您需要的任何列。

Sub Mark_Empty()

Dim myTable As ListObject
Dim myArray As Variant


Set myTable = ActiveSheet.ListObjects("Table1")
Set myArray = myTable.ListColumns(2).Range


For Each cell In myArray
    If IsEmpty(cell) = True Then cell.EntireRow.Interior.ColorIndex = 4
Next cell

End Sub

修改

我回到原始解决方案迭代每个单元格，然后使用Case语句检查列号。只有当列号与IF中定义的列号相匹配时，才会执行您的初始Case。

我并不认为它是最好的解决方案，但会做你需要的。

Sub Mark_Empty()

Dim myTable As ListObject
Dim myArray As Variant


Set myTable = ActiveSheet.ListObjects("Table1")
Set myArray = myTable.DataBodyRange


For Each cell In myArray
    Select Case cell.Column
        Case 2, 4, 5
            If IsEmpty(cell) = True Then cell.EntireRow.Interior.ColorIndex = 4
    End Select

Next cell

End Sub

Answer 2

属性DataBodyRange会返回Range，因此您可以取出Range并根据需要进一步限制它。 请注意，您要将返回值分配给myArray，Variant，因此您应该在使用我的建议之前解决此问题。

另外，ListObject还有其他有用的属性：

1. ListColumns，返回“表示ListObject对象中所有列的集合”。

2. Range，返回“一个Range对象，表示指定列表对象的范围”。

在不了解您希望如何限制使用Range的情况下，可以说这一切。