回答于 2015/03/19 23:38
Using the following VBA code will fulfill your requirement.
Sub InsertCol()
Dim iRowCount As Integer
Dim iColCount As Integer
Dim i As Integer
Dim j As Integer
Dim iPosStr As Integer
Dim iPosTimes As Integer
Dim NumStr As String
Dim myRng As Range
iRowCount = ThisWorkbook.Sheets("Sheet1").UsedRange.Rows.Count
iColCount = ThisWorkbook.Sheets("Sheet1").UsedRange.Columns.Count
For i = 1 To iRowCount
For j = 1 To iColCount
iPosStr = InStr(ThisWorkbook.Sheets("Sheet1").Cells(i, j), "Ö§")
If iPosStr > 1 Then
iPosTimes = InStr(ThisWorkbook.Sheets("Sheet1").Cells(i, j), "X")
NumStr = Mid(ThisWorkbook.Sheets("Sheet1").Cells(i, j), iPosTimes + 1, iPosStr - iPosTimes - 1)
'MsgBox NumStr
Set myRng = ThisWorkbook.Sheets("sheet1").Range(Cells(i, j), Cells(i, iColCount))
myRng.Insert Shift:=xlToRight
ThisWorkbook.Sheets("Sheet1").Cells(i, j) = NumStr
End If
Next j
Next i
End Sub