- 最後登錄
- 2024-4-28
- 在線時間
- 7164 小時
- 註冊時間
- 2010-5-4
- 閱讀權限
- 95
- 精華
- 0
- UID
- 7964333
- 帖子
- 155
- 積分
- 1287 點
- 潛水值
- 47865 米
| 如果你忘記伊莉的密碼,請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出,系統就會把密碼寄到你的E-Mail。 本帖最後由 tryit244178 於 2019-12-27 10:09 AM 編輯
這還不簡單,你只要這樣做- Public Sub Simplify()
- 留下數字()
- insert()
- MySplit()
- delete()
- 補空號()
- End Sub
複製代碼 你看,五個步驟就變成一個步驟了
話說這樣東找西找,能夠湊出來,你也蠻厲害的
提供另一個給你,不過有點小缺點…不難,你可以自已寫看看- Public Sub GetTimeAndSort()
- Dim index As Integer
-
- For i = 1 To 30
- index = Int(Right(Cells(i, "C"), 2))
- Worksheets("目的地").Range("A" & index) = Trim(Right(Cells(i, "A"), 8))
- Worksheets("目的地").Range("B" & index) = Cells(i, "C")
- Next
- End Sub
複製代碼 因為我現在跳槽到LibreOffice,沒在用一點都不硬的Office,所以沒辦法測程式碼對不對。
如果有錯就…自已改一下XD... |
|