標題: [發問] 儲存格資料拆開問題尋問 [打印本頁]

---

作者: rouber590324    時間: 2015-5-6 11:50     標題: 儲存格資料拆開問題尋問

DEAR ALL 大大
1.如圖一 為 於 B欄秀出  A1儲存格內以 ","為 KEY 將 儲存格資料拆開至 B欄
2.請問假如我 A1儲存格資料除 ","  還有 "#" 與 ";" 時該如何修改
  2.1 例 : A1= 1;2,3,4#5;6   
    2.1.1 結果   B1=1   B2=2 B3=3 B4=4  B5=5  B6=6
3.煩不吝賜教   THANKS
圖一
Sub nn()
  Dim lRow&
  Dim aR, aA
  
  aR = Split([A1], ",")
  lRow = 1
  For Each aA In aR
    Cells(lRow, 2) = aA
    lRow = lRow + 1
  Next
End Sub

---

作者: stillfish00    時間: 2015-5-6 16:50

回復 1# rouber590324
可以用replace把 #和 ; 取代為 ,
再用 split 分開

---

作者: koo    時間: 2015-5-6 19:57

[attach]20880[/attach]

---

作者: rouber590324    時間: 2015-5-7 11:37

DEAR   stillfish00  大大
好方法  豁然開朗
THANKS*10000

可以用replace把 #和 ; 取代為 ,
再用 split 分開

---

作者: gn001038600    時間: 2015-5-12 11:52

回復 1# rouber590324


1.如圖一 為 於 B欄秀出  A1儲存格內以 ","為 KEY 將 儲存格資料拆開至 B欄
2.請問假如我 A1儲存格資料除 ","  還有 "#" 與 ";" 時該如何修改
  2.1 例 : A1= 1;2,3,4#5;6   
    2.1.1 結果   B1=1   B2=2 B3=3 B4=4  B5=5  B6=6
3.煩不吝賜教   THANKS

如果您的資料格式都是僅抓單數位置可試看看以下

sub aa()
for i = 1 to 12 step 2
       If i < 2 Then
             sheet1.Cells(i, 2) = Mid(sheet1.Cells(1, 1), i, 1)
       Else
             sheet1.Cells((i + 1) / 2, 2) = Mid(sheet1.Cells(1, 1), i, 1)
       End If
next
end sub

---

作者: rouber590324    時間: 2015-5-12 15:11

DEAR gn001038600 大大
感謝您提供另一方式.我之資料剛好都是單數.THANKS*10000

---

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