Excel で数字を個別の桁に分割する方法

Question 1

Excel VBA のマクロでこれを実行したいですか、それとも方向を示すだけのポインターですか?

これは最も効率的な方法ではないかもしれませんが、一つの方法です。

数値の範囲を調べ、各数値を文字列に変換します。例: sValue = Trim(Str(I))

次にLEN(sValue)の各桁の値を取得し、それを2乗します。

例えば、J = 1 の場合、Len(sValue) の結果 = Result + (Val(Mid(sText, J, 1)) ^ 2) 次の J

結果を取得したら、要求された基準を実行し、それが整数であることを確認します（例）例：（結果 / 除数）= Round（結果 / 除数、0）

結果を必要なセルに入力します。必要な回数だけ繰り返します（例：10000）。

これは私が作成したサンプルであり、あなたの例には問題なく機能すると思います (3711 行の回答が得られます)。要件に合わせて Const 値を変更するだけです。

Sub SplitNumber()
Const StartRange = 1
Const EndRange = 10000
Const Divisor = 3
Const InputCol = 1
Const ResultCol = 2

Dim StartRow, Result As Integer
Dim sValue As String

StartRow = 1
I = StartRange
CurrentRow = StartRow

While I <= EndRange
    sValue = Trim(Str(I))
    Result = 0
    If Len(sValue) > 1 Then
        For J = 1 To Len((sValue))
            Result = Result + (Val(Mid(sValue, J, 1)) ^ 2)
        Next J
    Else
        Result = Val(sValue) ^ 2
    End If
    If (Result / Divisor) = Round(Result / Divisor, 0) Then
        Cells(CurrentRow, InputCol) = I
        Cells(CurrentRow, ResultCol) = Result
        CurrentRow = CurrentRow + 1
    End If
    I = I + 1
Wend

End Sub

Answer