帖子: 24
主題: 6
精華: 0
積分: 35
點名: 0
作業系統: WIN7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
來自: Taipei
註冊時間: 2012-3-19
最後登錄: 2015-1-8

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-3-27 11:23 | 只看該作者

[發問] 有關資料剖析

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

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

End Sub

樓主熱帖

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

12^#

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

回復 11# GBKEE

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

字典兩各字還真難理解

TOP

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

複製代碼

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

10^#

發表於 2012-3-28 16:47 | 只看該作者

回復 4# hugh0620

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

字典兩各字還真難理解

TOP

tommy.lin

小學生 Rank: 1

帖子: 24
主題: 6
精華: 0
積分: 35
點名: 0
作業系統: WIN7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
來自: Taipei
註冊時間: 2012-3-19
最後登錄: 2015-1-8

9^#

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

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

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

8^#

發表於 2012-3-27 15:41 | 只看該作者

本帖最後由 mark15jill 於 2012-3-27 15:49 編輯

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

TOP

tommy.lin

小學生 Rank: 1

帖子: 24
主題: 6
精華: 0
積分: 35
點名: 0
作業系統: WIN7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
來自: Taipei
註冊時間: 2012-3-19
最後登錄: 2015-1-8

7^#

發表於 2012-3-27 13:52 | 只看該作者

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

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

6^#

發表於 2012-3-27 13:35 | 只看該作者

本帖最後由 mark15jill 於 2012-3-27 13:36 編輯

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

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

TOP

tommy.lin