可不可以輸入需要的數字範圍自動產出

yueh0720

例如需要59~101數字產生於rangs("c2")
可以任意輸入數字範圍,但數字必須在rangs("c2") 由小到大排序,該如何處理??

kimbal

C2 到C101
1000 以內數字

1.     Randomize
   
2.     lngNum = 100
   
3.     lngNumRangeTo = 1000
   
4.     For i = 0 To lngNum
   
5.         Range("C2").Offset(i).Value = Int(Rnd * lngNumRangeTo)
   
6.     Next
   
7.     Range(Range("C2"), Range("C65536").End(xlUp)).Select
   
8.     Selection.Sort Key1:=Range("C2"), Order1:=xlAscending

複製代碼

yueh0720

執行結果c2=2,10,28,28,36,39,39,47,50,54,64,69....994(亂跳)
可以改成可更改區間的號碼?並顯示在rangs("c2")由小到大
例如數入59~101
執行結果c2=59,60,61,62,63...101
例如輸入20~50
執行結果c2=20,21,22,23,24...50

GBKEE

回復 3# yueh0720

1. Sub Ex()
   
2.     Dim A1, A2
   
3.     A1 = 51
   
4.     A2 = 101
   
5.     With Range("C2")
   
6.         .Resize(Rows.Count - .Row) = ""
   
7.         .Value = A1
   
8.         .Offset(1).Resize(A2 - A1) = "=R[-1]C+1"
   
9.         .Offset(1).Resize(A2 - A1) = .Offset(1).Resize(A2 - A1).Value
   
10.     End With
    
11. End Sub

複製代碼

Hsieh

回復 3# yueh0720

1. Sub Ex()
   
2. Dim t&
   
3. [C2:C65536] = ""
   
4. [C2] = InputBox("起始碼")
   
5. t = InputBox("結束值")
   
6. [C2].Resize(t - [C2] + 1).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
   
7.         Step:=1, Trend:=False
   
8. End Sub

複製代碼