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=區域

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