Tìm và tính tổng trong 1 cột sao cho lớn hơn hoặc bằng 12 (1 người xem)

[Hama]

Tôi có một bảng tính trong đó yêu cầu tìm và tính tổng trong một cột sao cho giá trị >=12 nhưng không quá 12,5.
VD: lấy giá trị ơ ô A2 cộng với giá trị bất kỳ ở các ô A3,A4,...để được giá trị >=12 nhưng không quá 12,5 (chỉ cộng giá trị ở 2 ô với nhau).
Thank!

 

[kongcom]

Bạn dùng File này của mình xem nha .

 

[SA_DQ]

Bạn thử xài cái ni

Option Explicit

Sub SearchForSum()
 Dim iJ As Long, iZ As Long, lRow As Long
 Dim Temp As Double
 
 lRow = Range("A65432").End(xlUp).Row
 For iJ = 2 To lRow
    For iZ = iJ + 1 To lRow
        
        Temp = Cells(iJ, 1) + Cells(iZ, 1)
        If Temp >= 12 And Temp < 12.5 Then
            If Cells(iJ, 1).Offset(, iJ) = "" Then
                Cells(iJ, 1).Offset(, 1) = Cells(iZ, 1).Address
            Else
                Cells(iZ, 1).Offset(, 1) = Cells(iJ, 1).Address
            End If
        End If
 Next iZ, iJ
End Sub