热心网友
回答时间：2天前
热心网友
回答时间：2天前
复制代码 ，针对A列输入的
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim I%
For I = 1 To Range("A65536").End(xlUp).Row
Cells(I, 1) = Left(Cells(I, 1), 4) & "*" & Right(Cells(I, 1), 3)
Next
End Sub
热心网友
回答时间：2天前
其中$符号可以换成你要的任意符号
本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。
