change事件,A列输入内容,自动添加上S字符,或者批量添加也行,跑个循环即可 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 Or Target.Row < 2 Then End Application.EnableEvents = False Target = "S" & Target Application.EnableEvents = True End Sub