Sub 插入欄()
ActiveCell.Offset(0, 1).Select
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert
ActiveCell.Offset(0, -1).Select
End Sub
Sub 切割()
x = ActiveCell.Address
Selection.TextToColumns Destination:=Range(x), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(Array(1, 2), Array(2, 2),...Read more