[發問] 關於儲存格 兩段的問題

mark15jill

想請問 如果儲存格 有兩段文字(如附圖) 要怎用VBA判別 上、下行文字??
(只會合再一起 不會分開= =")

如附圖
attachimg]9978[/attachimg]

Hsieh

回復 1# mark15jill


    換行字元為Chr(10)

mark15jill

回復 2# Hsieh


    Hsieh 大大 我的意思是說
    如附圖    右邊第一個是 姓名(如 海龍王)  第二個是區域(如海底城)  要怎把 原始的分解出..QQ

Hsieh

回復 3# mark15jill

ar=split(a,chr(10))
a.offset(,2).resize(,ubound(ar)+1)=ar

mark15jill

回復 4# Hsieh


    前段看得懂
後段 他顯示型態不符..

hugh0620

回復 5# mark15jill

   這個剛好我最近也有處理過~  我採用的是透過一般函數的處理方式~ 來撰寫程式碼
    C1 = Left(Sheet3.Cells(原始資料儲存格), Application.Find(Chr(13), Sheet3.Cells(原始資料儲存格), 1) - 1)                                                                          '(減不減1看你資料內容,自行增減)
    C2 = Mid(Sheet3.Cells(原始資料儲存格), Application.Find(Chr(10), Sheet3.Cells(原始資料儲存格), 1) + 1, Len(Sheet3.Cells(原始資料儲存格)))  '(加不加1看你資料內容,自行增加)
   'C1=名字
   'C2=區域

mark15jill

回復 6# hugh0620


   

下載 (13.17 KB)

2012-3-14 11:37

下載 (107.85 KB)

2012-3-14 11:37

register313

回復 5# mark15jill
Hsieh超版的程式沒有問題,只是取出的欄位順序與你要的相反

1. Sub SS()
   
2. For Each a In Range([a1], [A65536].End(xlUp))
   
3.   ar = Split(a, Chr(10))
   
4.   a.Offset(, 2).Resize(, UBound(ar) + 1) = ar
   
5. Next
   
6. End Sub

複製代碼

下載 (66.21 KB)

2012-3-14 11:39

mark15jill

回復 8# register313


試驗可以.. 感謝各位大大的協助..

顛倒是沒關係.. 後續再調整就好

之前是多筆資料要統合一起，現在是要分解出。
真是xxxxxxxxo   = ="

hugh0620

回復 7# mark15jill

這樣就可以了~
chr(13)->chr(10)
因為我的資料是從資料庫導出來的~ 所以會有一個chr(13)的字元~
所以~ 你要自行去了解~ 你資料的內容~ 再去調整成適當的程式碼~

Sub ex()
Cells(1, 3) = Left(Sheet1.Cells(1, 1), Application.Find(Chr(10), Sheet1.Cells(1, 1), 1) - 1)                                                 '(減不減1看你資料內容,自行增減)
Cells(1, 4) = Mid(Sheet1.Cells(1, 1), Application.Find(Chr(10), Sheet1.Cells(1, 1), 1) + 1, Len(Sheet1.Cells(1, 1))) '(加不加1看你資料內容,自行增加)

End Sub