GBKEE

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

1. Option Explicit
   
2. Sub Ex()  '將字串分割成子字串
   
3.     Dim A As Range
   
4.     'SpecialCells 方法 此物件代表與指定型態及值相符合的所有儲存格。Range 物件。
   
5.     For Each A In Range("A:A").SpecialCells(xlCellTypeConstants) 'xlCellTypeConstants。包含常數的儲存格
   
6.         'If IsDate(A) Then     '是日期型態
   
7.         If InStr(A, "/") Then  '字串中有 "/"
   
8.         'InStr 函數 傳回在某字串中一字串的最先出現位置，此位置為 Variant (Long)。
   
9.             With A.Offset(, 1).Resize(, 3)
   
10.             '以A.Offset(, 1):[B欄],Resize(, 3):擴充3欄的Range範圍
    
11.                 .Value = Split(A, "/")   '以 "/" 分割字串
    
12.                 .Value = .Value          '變更為數字
    
13.             End With
    
14.            'Split 函數 傳回一個陳列索引從零開始的一維陣列 , 它包含指定數目的子字串
    
15.         End If
    
16.     Next
    
17. End Sub

複製代碼

freeffly

回復 11# GBKEE


    謝謝版主解釋
   好像還要花點時間理解
  先收下來慢慢品嚐一下