Board logo

標題: 如何用VB將123(23) 類似數字轉成EXCEL 兩個欄位 [打印本頁]
作者: drewchen1    時間: 2011-12-17 13:10     標題: 如何用VB將123(23) 類似數字轉成EXCEL 兩個欄位

各位先進,
小弟在學vb想將數字如123(23)或34(111) 類似 數字拆成 123 23 兩個欄位或 34 111兩個欄位,來做數字個別計算,不知有何方法
,請會的先進幫忙如何用程式表示
謝謝
作者: register313    時間: 2011-12-17 15:31

回復 1# drewchen1
  1. Sub XX()

  3. i = 2
  4. Do While Cells(i, 1) <> ""
  5.   x = Application.Find("(", Cells(i, 1))
  6.   y = Application.Find(")", Cells(i, 1))
  7.   Cells(i, 2) = Mid(Cells(i, 1), 1, x - 1)
  8.   Cells(i, 3) = Mid(Cells(i, 1), x + 1, y - x - 1)
  9.   i = i + 1
  10. Loop

  12. End Sub
複製代碼
作者: GBKEE    時間: 2011-12-17 15:51

回復 1# drewchen1
  1. Option Explicit
  2. Sub Ex()
  3.     Dim i As Integer
  4.     i = 1
  5.     Range("A:A").Replace ")", ""
  6.     Do
  7.         Cells(i, "A").Resize(, 2) = Split(Cells(i, "A"), "(")
  8.         i = i + 1
  9.     Loop While Cells(i, "A") <> ""
  10. End Sub
複製代碼
作者: drewchen1    時間: 2011-12-17 16:30

謝謝大家^^
作者: xmi    時間: 2015-3-20 22:33

回復  drewchen1
register313 發表於 2011-12-17 15:31



    試run時, 為何程式說"變數未定義"? 謝謝解答.
作者: GBKEE    時間: 2015-3-21 13:49

回復 5# xmi
vba 訊息不是有說明嗎!!

  [attach]20474[/attach]
作者: xmi    時間: 2015-3-21 21:53

回復 6# GBKEE

不好意思, 他顯示"很抱歉，沒有針對以下的結果: "



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)