电子表格在EXCEL中如何利用宏命令将一个数列拆开,例如将PL10*120拆分成

1.在EXCEL中如何利用宏命令将一个数列拆开,例如将PL10*120拆分成

Sub Macro6()

'

' Macro6 Macro

'

'

Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _

Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _

:="*", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

Columns("A:A").Select

Selection.Replace What:="PL", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Columns("C:D").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=

Range("C1").Select

ActiveCell.FormulaR1C1 = "=MIN(RC[-2],)"

Range("C1").Select

ActiveCell.FormulaR1C1 = "=MIN(RC[-2],RC[-1])"

Range("D1").Select

ActiveCell.FormulaR1C1 = "=MAX(RC[-3],RC[-2])"

Range("C1:D1").Select

Selection.AutoFill Destination:=Range("C1:D1000")

Range("C:D").Select

Columns("A:B").Select

Range("B1").Activate

Columns("C:D").Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Columns("A:B").Select

Range("B1").Activate

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Columns("A:B").Select

Selection.Replace What:="0", Replacement:="", LookAt:=xlWhole, _

_

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

End Sub

注意：使用时先选中A列再运行宏，被***列必须在A列哦，而且BC两列是空的，不然会覆盖掉（呵呵时间短，做的不是特别智能）而且行数不超过1000行。呵呵不然会有点慢所以范围就定了1000行。你也是搞钢结构的？哈偶也是哦