Question

excel，如下所述，公式？

2.211=42/(42-23) 数值＝A1/（A1-A2）
如上述等式，给出2.211，然后算出，哪些A1 A2 满足条件吗？
要求：1. A1 A2为整数或者为42.5 或 23.5 这样的所有的数
2. A1的范围在10-80 ，A2的范围在10-80

Answer 1

如图所示。可知这样的数对有（21，11.5），（42，23），（63，34.5），（78.5，43）。 

注意：

1. 用B2中的公式填充其余单元格

2. 所有数值保留3位小数（设置单元格格式）

3. 查找范围选择：值

Answer 2

vb循环语句可以做到，二个变量循环

Answer 3

A1和A2输入公式，因两个单元格取值是一样的范围，公式也一样。是个随机10到80的整数或0.5的倍数。
=CEILING(RAND()*70+10,0.5)
B1输入2.211
=IF(A1/(A1-A2)=B1,"A1="&A1&"A2="&A2,"不成立")
当成立时，显示A1和A2的对应值

代码试下
Sub 取数()
Dim A1, A2
Dim arr()
Dim i&
ReDim arr(1 To 1)
Do While i < 2
Randomize
A1 = Application.Ceiling(Rnd() * 70 + 10, 0.5)
A2 = Application.Ceiling(Rnd() * 70 + 10, 0.5)
If (A1 - A2) <> 0 Then
If A1 / (A1 - A2) = 2.211 Then
i = i + 1
ReDim Preserve arr(1 To i)
arr(i) = "A1=" & A1 & ",A2=" & A2
End If
End If
Loop
Range("D1").Resize(UBound(arr)) = Application.Transpose(arr)
End Sub