每隔12列加1的程式

myleoyes

各位前輩你們好!
         前輩!!問題如附檔說明
         請知道的前輩,不吝賜教謝謝再三!!

chin15

Sub 年齡()
    zz = Application.InputBox("輸入年齡", "請輸入分析年齡", 20, Type:=1)
    If zz = 0 Or zz = "" Then End
    ' Range("C3:C1445") = ""
    Range("C3") = zz
    r = 3
    Do
        r = r + 12
        Cells(r, 3) = zz + 1
        zz = zz + 1
    Loop Until Cells(r, 1) = ""

End Sub

GBKEE

另一迴圈

1. Sub 年齡()
   
2.     ZZ = Application.InputBox("輸入年齡", "請輸入分析年齡", 20, Type:=1)
   
3.     If ZZ = 0 Or ZZ = "" Then End
   
4.     Range("C3:C1445").Clear
   
5.     For I = 3 To Cells(Rows.Count, "b").End(xlUp).Row Step 12
   
6.         With Cells(I, "C")
   
7.             .Value = ZZ
   
8.             .NumberFormatLocal = 0 & "歲"
   
9.         End With
   
10.         ZZ = ZZ + 1
    
11.     Next
    
12.     Range("C:C").EntireColumn.AutoFit
    
13. End Sub

複製代碼

myleoyes

回復 3# GBKEE
GBKEE前輩你好!
     　 良師!辛苦囉!謝謝再三!!
chin15 前輩!
       辛苦囉!謝謝再三!!