发布网友 发布时间:2022-04-24 09:02
共1个回答
热心网友 时间:2024-03-02 00:41
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$B$1" Then
Rows(2).Clear
Range("A2").Resize(1, [b1].Value).Interior.Color = 65535
End If
End Sub