- 帖子
- 63
- 主題
- 7
- 精華
- 0
- 積分
- 90
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- 2013
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2022-9-23
- 最後登錄
- 2024-12-16
|
本帖最後由 星空乂羽翼 於 2023-9-6 10:27 編輯
- Sub text()
- Range("A1").Select
- Dim x As Integer
- Dim y As Integer
-
- While ActiveCell.Value <> ""
-
- x = ActiveCell.Value
-
-
- If x = 0 Then
- y = y + 1
- ActiveCell.Offset(1, 0).Range("A1").Select
-
- Else
- ActiveCell.Offset(0, 1).Range("A1").Select
- ActiveCell.Value = y
- ActiveCell.Offset(1, -1).Range("A1").Select
- y = 0
-
- End If
- Wend
- End Sub
|
|
發表於 2023-9-6 10:26
| 