已知一个被除数的多个除数和余数，求该被除数

zdfzjdc

Sub yushu_2()          '列出9999999以内满足要求的数
Dim n As Long, r As Long
n = 63
Do While n < 9999999
   If n Mod 8 = 1 Then
      If n Mod 5 = 4 Then
        If n Mod 6 = 3 Then
           r = r + 1
           Cells(r, 1) = n
        End If
       End If
    End If
   n = n + 63
Loop
End Sub

运行后在小于9999999的正整数区间内共有3968个满足条件的数！

1449        3969        6489        9009        11529        14049        16569        19089        21609        24129        …        9995769        9998289

zdfzjdc

第二种是五楼“上清宫主 ”的方法，程序中加入了数学推理知识，程序简单明了。第一种程序就要复杂些，但运行后结果是一样的。

chunlin1wang

函数应该可以

1. =SMALL(IF(MMULT(N(MOD(ROW($1:$99999),COLUMN(A:I))={0,1,0,1,4,3,0,1,0}),ROW($1:$9)^0)=9,ROW($1:$99999)),ROW(A1))

复制代码