返回列表 上一主題 發帖

[發問] 請問如何從一行文字長字串中截取需要的短字串

diabo

帖子
79 
主題
2 
精華
0 
積分
193 
點名
0  
作業系統
Winwos 7 64 bits 
軟體版本
Excel 2003/2007 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2010-8-25 
最後登錄
2019-9-20 
1# 跳轉到 »
發表於 2011-6-26 01:10 | 顯示全部帖子
本帖最後由 diabo 於 2011-6-26 01:12 編輯
  1. Sub 資料剖析()

  3.    '取得資料最後一列
  4.     last_row = Sheet1.[AO65536].End(xlUp).Row   
  5.    '取得填入姓名之欄數
  6.     col_bgn = Sheet1.Range("BJ1").Column
  7.    
  8.     For r = 2 To last_row         
  9.        '欲解析之原始資料內容
  10.         raw_data = Sheet1.Range("AO" & r).Value               
  11.        '以#分割字串為陣列(Array)
  12.         arr_Name = Split(raw_data, "#")
  13.         For n = 1 To UBound(arr_Name)
  14.            '第n個姓名回填資料欄數
  15.             c = col_bgn + n
  16.            '取出職稱+姓名+....
  17.             raw_name = Trim(arr_Name(n))            
  18.            '取的$位置
  19.             pos = InStr(1, raw_name, "$")
  20.            '取出姓名--假設職稱皆為兩個字(請自行將AD2的「接帶待」改為「接待」)
  21.             Sheet1.Cells(r, c).Value = Mid(raw_name, 3, IIf(pos = 0, 255, pos - 3))
  22.         Next
  23.     Next

  25. End Sub
複製代碼
diabo

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題