Sub test() Dim arr, i%, str$ arr = Range("A2:A6") For i = 1 To UBound(arr) If arr(i, 1) > 10 Then str = str & Chr(13) & arr(i, 1) End If Next MsgBox "大于10的数字为：" & strEnd Sub
