Question

Excel问题

刚才那个问题，如果在第一行有10个小于40的随机自然数，第二行也有10个＜40的自然数，现在统计第二行尾数如果是1，或3并且这个数字与第一行的任何一个数字差的绝对值等于1就对这样数字个数总计，怎么写公式

Answer 1

用VBA 做统计会相对简单的多，如图，代码在下面：

Sub RANDB_A()
'随机数
For I = 2 To 11
 Cells(I, 1) = Application.RandBetween(0, 40)
 Cells(I, 2) = Application.RandBetween(0, 40)
Next
End Sub
Sub Group_B()
'统计符合条件的
Dim valB As Integer
For I = 2 To 11
valB = Cells(I, 2) Mod 10
If valB = 1 Or valB = 3 Then
 For J = 2 To 11
 If Cells(I, 2) - Cells(J, 1) = 1 Or Cells(I, 2) - Cells(J, 1) = -1 Then
 n = n + 1
 End If
 Next
End If
Next
Cells(2, 4) = n
End Sub

追答

夜里做梦，想起来代码不够严谨，要在 n=n+1下面加上一句exit for '满足条件后应该跳出内循环。

Answer 2

时间是特殊的数值是可以计算的
如果是文本是无法计算的，自然就出错了！