可以这样做
在A1-D1里面输入
=
offset(e1,round(rand()*6,0),round(rand()*3,0))
思路，随机抽
E1
向下移动0-6，向右移动0-3的单元格内容
如果不止向下到第7行，可以调整公式里面的6为最后一行行号-1
列也是一样的

用条件公式IF
该公式的基本写法是 =IF(结论为真或假的条件,结论为真时的结果,结论为假时的结果)
你的问题转换为:
条件: A1=B1
结论为真 1
结论为假 2
所以在C1中输入以下公式,公式可以下拉填充
=IF(A1=B1,1,2)

C1输入
=IF(A1=B1,1,2)

选
中c1单元
格。格式，条件格式，使用公式
=or(and(a1=1,b1=2),and(a1=2,b1=2))
然后在旁边的格式中定义单元格为红色，确定
，即可。

C1=IF(A1=B1,1,2)

应该是在满足一定条件时C1=A1+B1等于C，满足另外的条件时c1=B1-A1，看想要达到什么目的，设置什么条件了？

根据你的描述可以写公式 c1=if(a1<>"",a1,if(b1<>"",b1))
这个逻辑有点瑕疵，如果A1和B1都有数值，显示什么呢？

可以写公式 C1=IF(B1="",A1,B1)

=IF(B1="",A1,B1)

会不会出现A1和B1均有数值的情况？

如果只是在A1中输入数字，,在B1和C1单元格显示出来，在B1和C1单元格中分别输入公式“=A1”就可以了。 如果要求在任意一个单元格中输一个数字,三个单元格中都能显示出来,可能要用到VBA才能解决,本人什么也不懂,只能讲这些了.

用宏方能解决。
A1，B1，C1为空情况下，使用以下代码。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
With Target
If .Column = 1 And .Row = 1 And .Value <> "" And .Value <> Cells(1, 2) And .Value <> Cells(1, 3) Then
Cells(1, 2) = .Value
Cells(1, 3) = .Value
ElseIf .Column = 2 And .Row = 1 And .Value <> "" And .Value <> Cells(1, 1) And .Value <> Cells(1, 3) Then
Cells(1, 1) = .Value
Cells(1, 3) = .Value
ElseIf .Column = 3 And .Row = 1 And .Value <> "" And .Value <> Cells(1, 1) And .Value <> Cells(1, 2) Then
Cells(1, 1) = .Value
Cells(1, 2) = .Valwww.rixia.ccue
End If
End With
End Sub

在Sheet1的宏中加入：
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1) = Cells(1, 3) And Cells(1, 3) = Cells(1, 2) Then Exit Sub
If Target.Row = 1 Then
Select Case Target.Column
Case 1
Cells(1, 2) = Cells(1, 1)
Cells(1, 3) = Cells(1, 1)
Case 2
Cells(1, 1) = Cells(1, 2)
Cells(1, 3) = Cells(1, 2)
Case 3
Cells(1, 1) = Cells(1, 3)
Cells(1, 2) = Cells(1, 3)
End Select
End If
End Sub

工具 选项 零值不显示 也可以用逻辑公式判断，如果A B是空单元格 日夏养花网C="" 。