发布网友 发布时间:2023-04-01 21:03
共1个回答
热心网友 时间:2023-11-23 13:12
在当前表VBA 代码窗口
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 3 And Target.Row > 1 Then
If Target.Value = 1 Then
Target.Value = Cells(1, Target.Column).Value
End If
End If
End Sub
参考我的经验处理
Excel工作表被修改后自动升序排列
热心网友 时间:2023-11-23 13:12
在当前表VBA 代码窗口
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 3 And Target.Row > 1 Then
If Target.Value = 1 Then
Target.Value = Cells(1, Target.Column).Value
End If
End If
End Sub
参考我的经验处理
Excel工作表被修改后自动升序排列