- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 10# freeffly
VBA 的說明
Split 函數 傳回一個陳列索引從零開始的一維陣列，它包含指定數目的子字串。
語法
Split(expression[, delimiter[, limit[, compare]]])
Split 函數語法有如下幾個指名引數： 請查看VBA 的說明
Offset 屬性 傳回 Range 物件，用以代表某個指定區域以外的範圍。唯讀。
expression.Offset(RowOffset, ColumnOffset)
expression 必選。該運算式傳回 Range 物件。
RowOffset 選擇性的 Variant。用列數表示的區域位移 (正值、負數或零 (0))。正值表示向下位移，負值表示向上位移。預設值為 0。
ColumnOffset 選擇性的 Variant。用欄數表示的區域位移 (整數、負數或 0 (零))。正值表示右位移，負值表示左。預設值為 0。- Option Explicit
- Sub Ex() '將字串分割成子字串
- Dim A As Range
- 'SpecialCells 方法 此物件代表與指定型態及值相符合的所有儲存格。Range 物件。
- For Each A In Range("A:A").SpecialCells(xlCellTypeConstants) 'xlCellTypeConstants。包含常數的儲存格
- 'If IsDate(A) Then '是日期型態
- If InStr(A, "/") Then '字串中有 "/"
- 'InStr 函數 傳回在某字串中一字串的最先出現位置，此位置為 Variant (Long)。
- With A.Offset(, 1).Resize(, 3)
- '以A.Offset(, 1):[B欄],Resize(, 3):擴充3欄的Range範圍
- .Value = Split(A, "/") '以 "/" 分割字串
- .Value = .Value '變更為數字
- End With
- 'Split 函數 傳回一個陳列索引從零開始的一維陣列 , 它包含指定數目的子字串
- End If
- Next
- End Sub
|
|
發表於 2012-3-28 17:09
| 
發表於 2012-3-28 17:36
| 