如何用VB將123(23) 類似數字轉成EXCEL 兩個欄位
- 帖子
- 31
- 主題
- 7
- 精華
- 0
- 積分
- 101
- 點名
- 0
- 作業系統
- windowxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 高雄縣鳳山
- 註冊時間
- 2011-2-16
- 最後登錄
- 2017-8-8
|
如何用VB將123(23) 類似數字轉成EXCEL 兩個欄位
各位先進,
小弟在學vb想將數字如123(23)或34(111) 類似 數字拆成 123 23 兩個欄位或 34 111兩個欄位,來做數字個別計算,不知有何方法
,請會的先進幫忙如何用程式表示
謝謝 |
|
|
DREWCHEN1
|
|
|
|
|
- 帖子
- 967
- 主題
- 0
- 精華
- 0
- 積分
- 1001
- 點名
- 0
- 作業系統
- WIN XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-11-29
- 最後登錄
- 2022-5-17
 
|
2#
發表於 2011-12-17 15:31
| 只看該作者
回復 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
|
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
      
|
3#
發表於 2011-12-17 15:51
| 只看該作者
回復 1# drewchen1 - Option Explicit
- Sub Ex()
- Dim i As Integer
- i = 1
- Range("A:A").Replace ")", ""
- Do
- Cells(i, "A").Resize(, 2) = Split(Cells(i, "A"), "(")
- i = i + 1
- Loop While Cells(i, "A") <> ""
- End Sub
|
|
|
|
|
|
|
|
- 帖子
- 31
- 主題
- 7
- 精華
- 0
- 積分
- 101
- 點名
- 0
- 作業系統
- windowxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 高雄縣鳳山
- 註冊時間
- 2011-2-16
- 最後登錄
- 2017-8-8
|
4#
發表於 2011-12-17 16:30
| 只看該作者
|
|
DREWCHEN1
|
|
|
|
|
- 帖子
- 26
- 主題
- 3
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 註冊時間
- 2011-4-26
- 最後登錄
- 2015-5-23
|
5#
發表於 2015-3-20 22:33
| 只看該作者
回復 drewchen1
register313 發表於 2011-12-17 15:31 
試run時, 為何程式說"變數未定義"? 謝謝解答. |
|
|
|
|
|
|
|
- 帖子
- 26
- 主題
- 3
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 註冊時間
- 2011-4-26
- 最後登錄
- 2015-5-23
|
7#
發表於 2015-3-21 21:53
| 只看該作者
回復 6# GBKEE
不好意思, 他顯示"很抱歉，沒有針對以下的結果: " |
|
|
|
|
|
|
|
