Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For uu = 1 To 工作表1.Range("a1").CurrentRegion.Rows.Count
If (InStr(Cells(uu, 1), "-") >= 1) Then
Cells(uu, 2) = InStr(Cells(uu, 1), "-")
Cells(uu, 3) = Mid(Cells(uu, 1), 1, Cells(uu, 2) - 3)
End If