LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Replace What:="WARNING*", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False
查找WARNING* 用空白 替換WARNING*
ActiveWindow.ScrollRow = 1 第壹行移到最上面
Columns("F:F").Select 選中 f列
Selection.Find(What:="0", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
:=False).Activate
ActiveCell.Replace What:="0", Replacement:=". 0", LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:=False
在F列中 用.0 代替 0
Rows("1:7").Select 選中 1-7行
Selection.Delete Shift:=xlUp 刪除 1-7行
Range("F2").Select 選中 F2單元格
Range(Selection, Selection.End(xlDown)).Select 選中F2 到 F2下面F列的最後壹個非空單元格區域(這個不知道是用什麽EXcel命令,有誰知道麻煩寫壹下)
Selection.TextToColumns Destination:=Range("F2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=True, OtherChar:= _
".", FieldInfo:=Array(Array(1, 9), Array(2, 1))
將選中的區域分列
下面的是重復的