顯示數值不跳格

fangsc

請教, 要如何修改, 輸出的數值才不會跳格顯示.

Sub hw1()
'3-X間的質數.
n = Range("E1")
For i = 3 To n
    For j = 2 To n - 1
    p = i Mod j
    If p = 0 Then Exit For
Next j

Cells(j, "a").Value = j
Next i

End Sub

活頁簿1.zip (11.08 KB)

下載次數: 4

2020-10-13 13:17

fangsc

回復 2# jcchiang

謝謝你的回覆.
但是run 出來的數字很奇怪
a1: 3
a2: 2
a3: 5
a4: 2
a5: 7
a6: 2
a7: 3
a8: 2
a9: 11
.
.
.

fangsc

感謝大家的指導.

fangsc

回復 5# 准提部林
不好意思, 再次提問.
If P > 0 Then r = r + 1: Cells(r, 1) = i
    : 冒號 是何作用? 我有goole, 冒號是用來連接2程式碼, 以簡化程式
但是如果把這一行直接分成2行, 得出的結果是不同的.
如果不用冒號, 請問程式該如何寫?

fangsc

回復 9# 准提部林
謝謝你的指導.