excel2003怎样写代码来自动实现把单元格里的两组数字分别显示到两个指定的单元格里,谢谢!
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
热门标签: