[發問] 有關資料剖析

tommy.lin

想要教Column A(整欄位)的資料分割到B/C/D 欄位
A欄位資料內容為日期格式 使用VB寫的話應該怎麼寫?分割依據為"/" 但是沒法順利切割開
不知道我寫的是否正確想請教板上專家

Sub AA()
Range("A:A").TextToColumns Destination:=Range("B"), OtherChar _
        :="/"

End Sub

hugh0620

回復 1# tommy.lin


    A欄位是日期格式~ 代表的就是年月日
    你要拆解的BCD欄位也就是年月日~
    用一般最簡單的方式~來拆解就可以了~
    若你A資料是從資料庫倒出來的~ 可能會是文字格式~有可能要修改一下~
    如果可以~ 請提供資料的範例~

1. Sub EX_1()
   
2. 
   
3. For Each a In Range("A:A")
   
4.     If a <> "" Then
   
5.        a.Offset(0, 1) = Year(a)
   
6.        a.Offset(0, 2) = Month(a)
   
7.        a.Offset(0, 3) = Day(a)
   
8.     End If
   
9. Next
   
10. 
    
11. End Sub

複製代碼

tommy.lin

回復 2# hugh0620

檔案已上傳

hugh0620

回復 3# tommy.lin

B欄位~ 請改成數值格式~
題供兩種方式給你參考~

1. Sub EX_1()
   
2. For Each a In Range("A2:A65536")
   
3.     If a <> "" Then
   
4.        a.Offset(0, 1) = Year(a)
   
5.        a.Offset(0, 2) = Month(a)
   
6.        a.Offset(0, 3) = Day(a)
   
7.     End If
   
8. Next
   
9. End Sub

複製代碼

1. Sub xx()  '將字串分割成子字串
   
2. For Each a In Range("A:A")
   
3. h = Split(a, "/", 3, vbDatabaseCompare)
   
4.     i = 1
   
5.     For Each b In h
   
6.     a.Offset(columnoffset:=i) = b
   
7.     i = i + 1
   
8.     Next
   
9. Next
   
10. End Sub

複製代碼

tommy.lin

可以了...Thanks lots..不過看不懂語法

mark15jill

回復 5# tommy.lin
直接把程式丟進VBA內..



sub xxg
        Columns("a:a").Select
    Selection.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2)), _
        TrailingMinusNumbers:=True
end sub

作用：用 / 為判斷符號 加以切割

tommy.lin

我有試著用巨集錄製成上面這樣子但實際執行時會出現error....

mark15jill

回復 7# tommy.lin


    麻煩貼圖 看哪邊有錯..



Sub xyw()
Columns("g:g").Select
    Selection.TextToColumns Destination:=Range("m1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(3, 2), Array(2, 2), Array(1, 2)), _
        TrailingMinusNumbers:=True
        
    sy = Columns("o:o").Value
    Columns("t:t") = sy
    sm = Columns("n:n").Value
    Columns("u:u") = sm
    sd = Columns("m:m").Value
    Columns("v:v") = sd
    Columns("m:o").Clear
End Sub

tommy.lin

問題好像解開了...原本我有四個日期欄位需要資料剖析原本錄製的方式是一次全部做完
但是好像會有錯亂的現象(執行到一半卡住或是後面的插入欄位錯位)我的步驟如下
在每個日期欄位後面插入五個空白欄位資料剖析後刪除最後兩個預留欄位.以上步驟重覆四次
後來我分四次錄製在串接起來沒有錯誤發生.anyway 感謝板上高手協助

freeffly

回復 4# hugh0620

　 大大下面兩的可以解釋一下嗎
    vbDatabaseCompare  &　columnoffset
    不太曉得用法