742
社区成员
发帖
与我相关
我的任务
分享
Dim i As Long, j As Long
For i = 2 To 9
For j = 1 To 9
If (10 * j + i) < (30 * i + 3 * j) Then
If (11 * j + i) > (30 * i + 3 * j) Then
Debug.Print i, j
End If
End If
Next
Next