Board logo

標題: 如何將複合字串分別放入個別欄位 [打印本頁]
作者: drewchen1    時間: 2011-3-1 23:00     標題: 如何將複合字串分別放入個別欄位

請教各位大大,
小弟 遇到資料欄位是這種情況:
                                             FF/TAPE折痕 44 TB/TAPE括痕 5
以上資料是在同一欄位,如要變成
                                                            FF  TAPE折痕 44
                                             TB  TAPE括痕 5
                                          或FF TAPE折痕 44   TB TAPE括痕  5

要怎寫程式才能讓它分別獨立在欄位上(目前苦無對策不知怎構思)
作者: carzyindex    時間: 2011-3-2 05:34

回復 1# drewchen1


    可以提供欄位嗎?這樣敘述看不是很懂
作者: GBKEE    時間: 2011-3-2 07:17

回復 1# drewchen1
  1. Sub Ex()
  2.     Dim GetText, i As Integer, E As String
  3.     GetText = Split("FF/TAPE折痕 44 TB/TAPE括痕 5 FF/TAPE折痕 144 TB/TAPE括痕 555", " ")
  4.     For i = 0 To UBound(GetText) Step 2
  5.         E = Replace(GetText(i) & " " & GetText(i + 1), "/", " ")
  6.         Cells(1, 1 + Int((i + 1) / 2)) = E
  7.     Next
  8. End Sub
複製代碼
作者: drewchen1    時間: 2011-3-2 07:44

謝謝GBKEE 大大,我知道方向該怎寫了,如果失敗在貼程式請教你



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