Question

Excel表格实现判断赋值?

以下为我要在Excel表格中实现的效果。
对Excel表格中的单元格"A1"值进行判断;
如果"A1"=1为真时，那么"C1:C50"="B1:B50";
如果"A1"=2为真时，那么"D1:D50"="B1:B50";
如果"A1"=3为真时，那么"E1:E50"="B1:B50";
如果"A1"=4为真时，那么"F1:F50"="B1:B50";
如果"A1"=5为真时，那么"H1:H50"="B1:B50";
{【单元格"A1"数值从1-5自动循环递增（即：1-2-3-4-5-1……），单元格"B1:B50"数值实时在变】这个不用写，写出来只是让大家更清楚}

"A1"值由1变为2时，除"D1:D50"="B1:B50"实时更新外；"C1:C50"、"E1:E50"、"F1:F50"、"H1:H50"值不变，保持上次的值。
"A1"值由2变为3时，除"E1:E50"="B1:B50"实时更新外；"C1:C50"、"D1:D50"、"F1:F50"、"H1:H50"值不变，保持上次的值。
……
注:1、若不能实时更新，也可改为单元格"B1:B50"值变化时更新。
2、如果条件为真时，更新相应列的值要能自动刷新数值，（我做过要手动点击表格才能更新数值）

Answer 1

把以下代码复制到你的工作表的代码框里面，你所说的一切要求都可解决

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For i = 1 To 50
If [a1] = 1 Then Cells(i, 3) = Cells(i, 2)
If [a1] = 2 Then Cells(i, 4) = Cells(i, 2)
If [a1] = 3 Then Cells(i, 5) = Cells(i, 2)
If [a1] = 4 Then Cells(i, 6) = Cells(i, 2)
If [a1] = 5 Then Cells(i, 8) = Cells(i, 2)
Next
Application.EnableEvents = True
End Sub

Answer 2

你在C1里面输入=if($A$1=1,b1,"这个不知道要取哪个值了")，再往下拉

Answer 3

不知道你在说些什么,想帮你都帮不上,