excel2003怎样写代码来自动实现把单元格里的两组数字分别显示到两个指定的单元格里，谢谢！

更新时间2018-05-14 14:40:43

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 7 Then

MyrowMin = Cells(1, "g").End(xlDown).row

MyrowMax = Cells(Rows.Count, "g").End(xlUp).row

For row = MyrowMin To MyrowMax

    If Range("c" & row) = "" Then

       If InStr(Range("g" & row), " ") Then

          Range("c" & row) = VBA.Split(Range("g" & row), " ")(0)

          Range("d" & row) = VBA.Split(Range("g" & row), " ")(1)

       ElseIf InStr(Range("g" & row), ",") Then

          Range("c" & row) = VBA.Split(Range("g" & row), ",")(0)

          Range("d" & row) = VBA.Split(Range("g" & row), ",")(1)

       End If

    End If

Next

End If

End Sub

相关标签:谢谢，excel