- 帖子
- 11
- 主題
- 1
- 精華
- 0
- 積分
- 12
- 點名
- 0
- 作業系統
- Win7 32
- 軟體版本
- Office2013
- 閱讀權限
- 10
- 性別
- 男
- 來自
- Keelong
- 註冊時間
- 2015-2-14
- 最後登錄
- 2015-3-16
|
- Sub xx()
- For i = 2 To 5
- Sheets(i).Cells(1, 1) = Sheets(i - 1).Cells(1, 1) + 1
- Next
- End Sub
- Sub xxx()
- For i = 2 To 5
- x = Left(Sheets(1).Cells(1, 1), 1)
- y = Val(Right(Sheets(1).Cells(1, 1), 4)) + i - 1
- Z = Format(y, "0000")
- Sheets(i).Cells(1, 1) = x & Z
- Next
- End Sub
|
|
發表於 2015-3-16 06:10
| 