返回列表 上一主題 發帖

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

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

本帖最後由 mark15jill 於 2012-3-14 09:33 編輯

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

如附圖
attachimg]9978[/attachimg]
解圖.jpg

回復 1# mark15jill


    換行字元為Chr(10)
學海無涯_不恥下問

TOP

回復 2# Hsieh


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

TOP

回復 3# mark15jill

ar=split(a,chr(10))
a.offset(,2).resize(,ubound(ar)+1)=ar
學海無涯_不恥下問

TOP

回復 4# Hsieh


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

TOP

本帖最後由 hugh0620 於 2012-3-14 11:23 編輯

回復 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=區域
學習才能提升自己

TOP

回復 6# hugh0620


   

t2.jpg
2012-3-14 11:37


t3.jpg
2012-3-14 11:37

TOP

回復 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
複製代碼
1.gif
2012-3-14 11:39

TOP

回復 8# register313


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

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

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

TOP

回復 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
學習才能提升自己

TOP

        靜思自在 : 信心、毅力、勇氣三者具備,則天下沒有做不成的事。
返回列表 上一主題