こんばんは。

以外検索での回答がクローズされていたのでコラムとして書きました。

今回は、winactorメインなので最小限のコードで。

winactor 　→　マクロ起動　→　winactor 引き渡し

ＶＢＡにコピペで起動すると思います。

Ｊ６からＪ1549が０のみ(空白も０扱い)か０以外が含まれるか。

--------------------------------------------------
Option Explicit

Sub 判定()

    Dim i

       For i = 6 To 1549

            If Cells(i, 10) = 0 Then
　　   

            Else
                Range("J1") = "0以外あり"

            End If

     Next i

End Sub

---------------------------------------------------

変数をiにします。
iのカウンターを6から1549にします。

もし、Cells(6,10) = 0 ならば、
　　　　　　↑
　　　　　　行,列

then　のあとに処理事項ですが、空白とし何もしない。

0じゃなかったら(else)セル番地Ｊ1に文字列”0以外あり”を設定する。

もしも判定おしまい。
次のi=7に進む。1549までループ。
処理は一瞬です。

---------------------------------------------------

変化に強いコード(最終行判定)ですともっとコードが必要ですが、
最小限にこんな感じで。

J1セルに0以外ありが表示されない、されている
でwinacorに分岐で処理を引き渡せばいいのかと思います。

マクロ版ですが、ご参考までに。