Excel VBA 计算一行中的非空白单元格

Question

好的，所以我在另一个线程上找到了这种计算空白的方法，但它对我不起作用。 我已经包含了我声明的变量和我需要帮助的代码片段。

Dim x As Long
Dim y As Long
Dim countBlanks As Long
Dim ok As VbMsgBoxResult

    For x = ActiveCell.Row To ActiveCell.Row  ' specify your rows
        For y = 1 To 182 ' specify your columns

            If Cells(x, y) <> "" Then
                Exit For
            Else
                If y = 182 Then countBlanks = countBlanks + 1
            End If
        Next
    Next
    ok = MsgBox(countBlanks, vbOKOnly)

我的宏的其余部分以当前选择的单元格为中心。 我需要能够计算选择的任何行中的所有非空白单元格。 列数始终是一个常数 - 182。使用我正在测试的数据，我应该得到 49 个非空白单元格，或者如果我做错了什么，133 个空白单元格。 老实说，任何一个结果都很好。 有人可以告诉我我做错了什么吗？

我目前将结果发送到 Msgbox 以便我可以测试结果，但我希望将此值设置为另一个变量。 我需要根据所选单元格所在行中有多少空白单元格来执行不同的代码部分。

任何帮助表示赞赏。

Answer 1

你的代码根本不起作用； 该代码用于计算连续的空白单元格，这不是您需要的

Dim R As Long, countBlanks As Long
Dim Cell As Range

R = ActiveCell.Row
countBlanks = 0
For Each Cell In Range(Cells(R, 1), Cells(R, 182))
    If Cell = "" Then countBlanks = countBlanks + 1
Next Cell
MsgBox countBlanks