帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2026-2-12

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2015-5-6 16:50 | 只看該作者

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

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

koo

中學生 Rank: 2

帖子: 60
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: w7-32
軟體版本: 2013.2003
閱讀權限: 20
註冊時間: 2014-11-23
最後登錄: 2016-6-6

3^#

發表於 2015-5-6 19:57 | 只看該作者

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2026-2-12

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

4^#

發表於 2015-5-7 11:37 | 只看該作者

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

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

羅

TOP

gn001038600

中學生 Rank: 2

帖子: 21
主題: 1
精華: 0
積分: 52
點名: 0
作業系統: WIN7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2015-3-13
最後登錄: 2025-3-26

5^#

發表於 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

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2026-2-12

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

6^#

發表於 2015-5-12 15:11 | 只看該作者

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

羅

TOP