如何用VB將123(23) 類似數字轉成EXCEL 兩個欄位
- 帖子
- 967
- 主題
- 0
- 精華
- 0
- 積分
- 1001
- 點名
- 0
- 作業系統
- WIN XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-11-29
- 最後登錄
- 2022-5-17
 
|
回復 1# drewchen1 - Sub XX()
- i = 2
- Do While Cells(i, 1) <> ""
- x = Application.Find("(", Cells(i, 1))
- y = Application.Find(")", Cells(i, 1))
- Cells(i, 2) = Mid(Cells(i, 1), 1, x - 1)
- Cells(i, 3) = Mid(Cells(i, 1), x + 1, y - x - 1)
- i = i + 1
- Loop
- End Sub
|
|
|
|
|
|
|
|
發表於 2011-12-17 15:31
| 