新建表格即可。Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim tr, tctr = Target.Rowtc = Target.ColumnIf tr >= 1 And tc = 1 ThenIf Len(Cells(tr, tc)) >= 2 ThenCells(tr, tc) = Left(Cells(tr, tc), 2) & "." & Mid(Cells(tr, tc), 3, 2) & "." & Right(
|