mysheet.Columns("B:B").Insert Shift:=xlToRight
mysheet.Columns("A:A").TextToColumns Destination:=mysheet.Range("A1"), DataType:=xlDelimited, Other:=True, OtherChar:=":"
mysheet.Columns("A:A").TextToColumns Destination:=mysheet.Range("A1"), DataType:=xlDelimited, Other:=True, OtherChar:=":"
2.以“:”为分隔符将a1单元格内容分别拆分到a列的单元格中。以上,建议查看帮助文件。
1 2 3 4