如何在Excel中,某一固定单元格中的数值一旦发生变动,变动值就会反应到一个新的单元格里?
如题,比如固定单元格为A1,A1中的值会有变化,每次变化都会在B列里反应出来,第一次的值填入B1,第二次的值填入B2,第三次的值填入B3……如图,如果每次变化的数据相同都...
如题,比如固定单元格为A1,A1中的值会有变化,每次变化都会在B列里反应出来,第一次的值填入B1,第二次的值填入B2,第三次的值填入B3……如图,如果每次变化的数据相同都是1的时候,一直在B列往下填,如果A1数据变成2时,变化的数据切换到C 列填充,如果A1数据再由2变成1时,数据切换到D列填充;以此类推,如下图
展开
3个回答
展开全部
你这个就是判断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
如果是 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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
经常加剧,小腿也会酸痛有发胀
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询