从表列中的 COUNTA 创建一个变量

Question

我想执行以下操作： '计算活动工作表上表格第 1 列中的所有非空白单元格。 '将此单元格数量保存为变量“TransQty”。 '如果计数为 0，则消息“此选项卡上没有项目被标记为过渡”。 '如果计数大于 0，是/否消息“'TransQty' 项目将从该选项卡转换。您要继续吗？” '如果“否”，结束。 '如果“是”，继续执行其余代码。

我想使用表格列的标题，而不是列位置。这样添加和删除列不会影响代码的功能。

Sub Transition_from_Queue()

Dim TransRange As Range
Dim TransQty As Integer

Set TransRange = Worksheets("Project Queue").DateBodyRange("TableQueue[Transition]")

For Each TransRange In Selection
    If Application.WorksheetFunction.CountA(TransRange) Then
        TransQty = TransQty + 1
    End If
Next TransRange

If TransQty = 0 Then
    MsgBox "No projects on this tab are marked for transition."
        Else
        If TransQty > 0 Then
            MsgBox Range("TransQty") & "projects will be transitioned from this tab." & vbNewLine & "Would you like to continue?"
        End If
End If

在尝试了多种不同方式的代码后，我发现了几个问题。 1）我没有正确识别表格列，无法弄清楚我做错了什么。我想使用列标题，而不是列位置。 2）无论我在目标列的0个单元格还是100个单元格中都有文本，我一直收到TransQty = 0的消息。

Answer 1

您的代码非常接近您的需要。下面我的示例中有两个要点。第一个是将您的表格列直接分配给Range。第二点是如何检查一个单元格是否为空。使用COUNTA 可以计算整个范围内为空的单元格数量，但不起作用（我认为）是循环的原因。

Option Explicit

Sub test()
    Dim thisSheet As Worksheet
    Set thisSheet = ActiveSheet

    '--- this is not really needed, but shows how to get a variable
    '    for the whole table
    Dim thisTable As ListObject
    Set thisTable = thisSheet.ListObjects("TableQueue")

    Dim transitionData As Range
    Set transitionData = thisSheet.Range("TableQueue[Transition]")

    '--- this gets you how many non-blank cells in the range
    Dim transQty As Long
    transQty = WorksheetFunction.CountA(transitionData)

    '--- BONUS CODE!!!!  totals up the non-blank data in the range
    '    (though not asked for by OP)
    Dim data As Range
    Dim transitionQty As Double
    For Each data In transitionData
        If Not IsEmpty(data.Value) Then
            transitionQty = transitionQty + data.Value
        End If
    Next data

End Sub