Как показать в ячейках Excel все делители заданного числа? - VBA

Формулировка задачи:

Всем доброй ночи! Прошу помощи. Как правильно показать в ячейках Excel все делители заданного числа? Именно в ячейках Excel! Пусть число 34, тогда его делители: 1; 2; 17; 34.

Прошу не предлагать: MsgBox и Debug.Print — эти способы мне известны.

На картинке, ниже, код Excel неверно выводит делители у меня: 34; 34; 34; 34. Как исправить?

                    Листинг программы
                
 
                        
                          
                    
Sub Перечислить_все_делители_в_ячейках()
n = InputBox("N=")
[A1] = n
For i = 1 To n
  If n Mod i = 0 Then s = s + i
Next i
[B1] = s
'где s сумма всех делителей числа 34
Debug.Print s
For i = 1 To n Step 1
    If n Mod i = 0 Then Debug.Print "i ="; i
        'перечисляются все делители числа 34
    Next i
For j = 1 To n Step 1
    If n / j = n \ j Then
      Range("C1:C4") = j
    End If
    Next j
End Sub

Решение задачи: «Как показать в ячейках Excel все делители заданного числа?»

textual
                            Листинг программы 
                        
...
 Range("C4").Offset(, f) = J
...

Оцени полезность:

8 голосов , оценка 3.875 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы