- 最後登錄
- 2024-5-5
- 在線時間
- 7164 小時
- 註冊時間
- 2010-5-4
- 閱讀權限
- 95
- 精華
- 0
- UID
- 7964333
- 帖子
- 155
- 積分
- 1287 點
- 潛水值
- 47875 米
| 成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。 本帖最後由 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... |
|