参考下面处理
Excel某数据变动自动填到其它不同单元格
你这个就是判断A1
如果是 1,就填充到 B列
如果是 2 ,就填充到C列
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tr, tc
tr = Target.Row
tc = Target.Column
If tr = 1 And tc = 1 Then
X = Range("B65536").End(xlUp).Row
If [a1] = 1 Then
Cells(X + 1, "B") = [a1]
End If
If [a1] = 2 Then
y = Range("c65536").End(xlUp).Row
Cells(y + 1, "c") = [a1]
End If
End If
End Sub
经常加剧,小腿也会酸痛有发胀