新建表格即可。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tr, tc
tr = Target.Row
tc = Target.Column
If tr >= 1 And tc = 1 Then
If Len(Cells(tr, tc)) >= 2 Then
Cells(tr, tc) = Left(Cells(tr, tc), 2) & "." & Mid(Cells(tr, tc), 3, 2) & "." & Right(Cells(tr, tc), 2)
End If
End Sub
扩展资料:
Excel公式中的相对单元格引用(例如 A1)是基于包含公式和单元格引用的单元格的相对位置。如果公式所在单元格的位置改变,引用也随之改变。如果多行或多列地复制公式,引用会自动调整。默认情况下,新公式使用相对引用。
例如,如果将单元格 B2 中的相对引用复制到单元格 B3,将自动从 =A1 调整到 =A2。
参考资料来源:百度百科-单元格
不同的单元格格式太多的解决方法:
第一步:进入VB(Visual Basic);
第二步:打开代码窗口,在代码窗口里输入以下代码保存。
Sub DelStyls()
Dim s As Style
Application.ScreenUpdating = False
For Each s In ThisWorkbook.Styles
If Not s.BuiltIn Then s.Delete
Next
Application.ScreenUpdating = True
End Sub
第三步:运行代码(点击运行里选择“运行子过程/用户窗体”);
第四步:运行完代码后,此时工作表的格式是不是已去除了,那些在使用过程中留下的格式已除去了,只剩下Excel默认自带的格式。