返回列表 上一主題 發帖

顯示數值不跳格

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
1# 跳轉到 »
發表於 2020-10-13 14:30 | 顯示全部帖子
回復 1# fangsc

Sub hw1()

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
If [a1] = "" Then
   [a1] = j
Else
   Cells([a65535].End(3).Row + 1, "a").Value = j
End If
Next i
End Sub

TOP

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
2#
發表於 2020-10-13 15:05 | 顯示全部帖子
回復 3# fangsc

妳原來的程式用j值當作欄位位置,所以值是亂跳,並不是往下欄位去擺放
EX:當i=3 j=3滿足,是cells(3,"a")=3
當i=4 j=2滿足,是cells(2,"a")=2
第一筆放在第二筆下面

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題