excel VBA列出c3:h3中两个数相加小于33的数到I4:W4

Question

另：I4:W4中。如有与C4:H4四数字相同，则加红字

Answer 1

是任意两数相加要小于33吧?也就是说放入I4:W4中的数任意两数相加都小于33.是这样吧?

Sub 查找两数相加()
Dim arr(), Myarr(1 To 10)
arr = Range("C3:H3")
i = 1
ii = 1
n = 1
Do
Do
If arr(1, i) + arr(1, ii) < 33 Then
a = a + 1
Myarr(a) = arr(1, i)
Exit Do
End If
ii = ii + 1
Loop While ii <= 6
i = i + 1
If i = 6 Then
ii = 1
Else
ii = i + 1
End If
Loop While i <= 6

For n = 0 To a - 1
Cells(4, 9 + n) = Myarr(n + 1)
For x = 3 To 8
If Myarr(n + 1) = Cells(4, x) Then Cells(4, 9 + n).Interior.ColorIndex = 3
Next
Next
End Sub

Answer 2

Sub aa()
k = 9
i = 3
j = 4
Do
Do
a = Cells(3, i) + Cells(3, j)
If a < 33 Then
Cells(4, k) = a
k = k + 1
End If
j = j + 1
Loop Until Cells(3, j) = ""
j = j + 1
i = i + 1
Loop Until Cells(3, i) = Cells(3, 8)
End Sub

C3到H3这么少的单元格，用不着用到W4去吧。由于时间有限，红色可以你自己标一下吧