返回列表 上一主題 發帖

如何截取空格前文字

a5007185
　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生Rank: 2

帖子
108 
主題
1 
精華
0 
積分
113 
點名
0  
作業系統
Win 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2017-9-7 
最後登錄
2019-2-27 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2018-8-13 17:20 | 顯示全部帖子
回復 1# s7659109

請參考
  1. Sub Dismantling()
  2.     Dim PT As Range, ArrPT, Str, C%
  3.     Set PT = Range("B2")
  4.     ArrPT = Split(PT, Chr(10))
  5.     C = 3
  6.     For Each Str In ArrPT
  7.         If Str <> "" Then PT.Offset(0, C) = Str: C = C + 1
  8.     Next
  9. End Sub
複製代碼
空格前字串.zip (13.52 KB)

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
返回列表 上一主題