有關資料剖析 - Excel程式區 - 麻辣家族討論版版

返回列表下一主題上一主題發帖

[發問] 有關資料剖析

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

11^# 跳轉到 »

發表於 2012-3-28 17:09 | 只看該作者

回復 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