返回列表 上一主題 發帖

儲存格內選取"-"之前及之後的字眼。

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
1# 跳轉到 »
發表於 2016-6-5 20:50 | 顯示全部帖子
回復 1# tc1701

Sub ex()
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        Cells(i, 2).Resize(, 2) = Split(Cells(i, 1), "-")
    Next
End Sub
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
2#
發表於 2016-6-5 21:42 | 顯示全部帖子
RESIZE (,2) 是什麼意思?
RESIZE (,2)就是範圍增加為2欄

Cells(i, 2).Resize(, 2) 就是 RANGE(Cells(i, 2), Cells(i, 3))
Cells(i, 2).Resize(, 3) 就是 RANGE(Cells(i, 2), Cells(i, 4))
Cells(i, 2).Resize(, 4) 就是 RANGE(Cells(i, 2), Cells(i, 5))

游標移至 Resize 按F1 就能看到說明
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
返回列表 上一主題