Excel에서 숫자를 별도의 숫자로 나누는 방법

Question 1

Excel VBA의 매크로를 사용하여 이 작업을 수행하시겠습니까, 아니면 방향을 가리키는 포인터만 사용하시겠습니까?

이것은 가장 효율적인 방법은 아니지만 한 가지 방법입니다.

숫자 범위를 살펴보고 각 숫자에 대해 문자열로 변환합니다. 예: sValue = Trim(Str(I))

그런 다음 LEN(sValue)의 각 숫자에 대해 값을 얻고 이를 제곱합니다.

예: J = 1 To Len(sValue) Result = Result + (Val(Mid(sText, J, 1)) ^ 2) Next 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