- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2024-11-14
|
2#
發表於 2011-5-25 23:22
| 只看該作者
Sub 資料() 'K2
Dim iRows%, iNum%, iI%
Dim vData, vTimes
iRows = [A65535].End(xlUp).Row
iNum = 3
vData = Application.InputBox("輸入數字", "請輸入資料", Range("AA1"), Type:=2)
Do Until vData = 0 Or vData = "" Or iNum > iRows
Range("AA1") = vData
vTimes = Application.InputBox("輸入次數", "請輸入寫入資料的次數", Type:=2)
If vTimes = 0 Or vTimes = "" Then
Exit Sub
Else
For iI = 0 To vTimes - 1
Cells(iNum + iI, 2) = vData
Next
iNum = iNum + iI
End If
If iNum <= iRows Then
vData = Application.InputBox("輸入數字", "請輸入資料", Range("AA1"), Type:=2)
End If
Loop
End Sub |
|
