这得用宏。
右键点该工作表的名称（在工作簿左下方呢），查看代码，在新窗口粘贴如下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Line1
If Target.Range("A1").Column Mod 4 = 0 And Target.Range("A1").Row > 4 Then Target.Range("A1").Offset(0, 2) = Target.Range("A1").Offset(0, 2) Target.Range("A1")
Line1: End Sub
回到Excel，功能实现。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024