Nine-digit Fractions(II)

Problem:

Suppose integer A,B(A>B) and single C were satisified A/B=C and alldigits(1-9) each used just once in the both sides of the equality respectively. Try to get all solutions.

Answer:

Sub Solve()
Dim s() As Long, count As Long, t, i As Long, j As Long, k As Long, m, brr(65535, 1 To 4), num(4) As Long
getall 9, "", s, count
t = Array(1, 10, 100, 1000, 10000)
For j = 1 To 4
For i = 1 To count
m = (s(i) \ t(j)) / (s(i) Mod t(j))
m = Round(m, 9 - Len(Int(m)))
For k = 1 To 9
If InStr(CStr(m), k) = 0 Then Exit For
Next
If k = 10 Then
num(j) = num(j) + 1
brr(num(j), j) = (s(i) \ t(j)) & "÷" & (s(i) Mod t(j)) & "＝" & m
End If
brr(0, j) = "Count=" & num(j)
Next i, j
[a1].Resize(65536, 4) = brr
[a:d].Columns.AutoFit
ActiveSheet.UsedRange.Borders.LineStyle = 1
MsgBox "Ok"
End Sub

Sub getall(ByVal n As Byte, ByRef a As String, ByRef arr() As Long, Optional ByRef count As Long)
    If Len(a) = n Then
        count = count + 1
        ReDim Preserve arr(1 To count)
        arr(count) = CLng(a)
        Exit Sub
    End If
    For i = 1 To n
        If InStr(a, i) = 0 Then getall n, a & i, arr, count
    Next 
End Sub

It returns 438 solutions finally:

1-digit devider: Count=9

19382546÷7＝2768935.14
36915824÷7＝5273689.14
39815462÷7＝5687923.14
53614982÷7＝7659283.14
58293614÷7＝8327659.14
62814935÷7＝8973562.14
89345126÷7＝12763589.4
89361254÷7＝12765893.4
96312485÷7＝13758926.4

2-digit devider: Count=129

1246957÷38＝32814.6579
1325769÷84＝15782.9643
1462735÷98＝14925.8673
1482375÷69＝21483.6957
1495637÷82＝18239.4756
1672483÷59＝28347.1695
1689374÷52＝32487.9615
1697582÷43＝39478.6512
1726394÷58＝29765.4138
1783425÷69＝25846.7391
1824379÷56＝32578.1964
1876532÷49＝38296.5714
1956724÷38＝51492.7368
1967834÷52＝37842.9615
1982654÷73＝27159.6438
2136794÷58＝36841.2759
2157936÷84＝25689.7143
2159438÷76＝28413.6579
2351749÷86＝27345.9186
2367145÷89＝26597.1348
2375194÷86＝27618.5349
2463571÷98＝25138.4796
2543876÷91＝27954.6813
2631475÷89＝29567.1348
2718364÷95＝28614.3579
2896571÷34＝85193.2647
3124785÷69＝45286.7391
3176249÷58＝54762.9138
3182657÷49＝64952.1837
3476892÷51＝68174.3529
3615472÷98＝36892.5714
3742619÷58＝64527.9138
3852461÷79＝48765.3291
3867914÷52＝74382.9615
3942751÷68＝57981.6324
3957142÷68＝58193.2647
3985412÷67＝59483.7612
4218379÷56＝75328.1964
4367192÷58＝75296.4138
4382179÷56＝78253.1964
4392658÷17＝258391.647
4527869÷13＝348297.615
4579321÷86＝53247.9186
4628753÷19＝243618.579
4695231÷87＝53968.1724
4723658÷19＝248613.579
4731925÷68＝69587.1324
4738251÷96＝49356.7812
4758123÷96＝49563.7812
4873912÷65＝74983.2615
4891723÷56＝87352.1964
4932158÷67＝73614.2985
4953621÷87＝56938.1724
4968573÷21＝236598.714
4986157÷23＝216789.435
5192436÷87＝59683.1724
5314678÷29＝183264.759
5394768÷21＝256893.714
5421976÷38＝142683.579
5436728÷19＝286143.579
5642193÷87＝64852.7931
5643219÷78＝72348.9615
5714623÷98＝58312.4796
5793142÷68＝85193.2647
5794216÷38＝152479.368
5812394÷67＝86752.1493
5869124÷37＝158624.973
5923187÷46＝128764.935
6159847÷23＝267819.435
6234785÷19＝328146.579
6237485÷91＝68543.7912
6249173÷85＝73519.6824
6298437÷51＝123498.765
6357124÷89＝71428.3596
6375291÷84＝75896.3214
6394872÷51＝125389.647
6478259÷13＝498327.615
6531827÷94＝69487.5213
6571924÷38＝172945.368
6751289÷34＝198567.324
6849237÷51＝134298.765
6938752÷41＝169237.854
7135862÷49＝145629.837
7158346÷29＝246839.517
7243685÷19＝381246.579
7326815÷49＝149526.837
7329165÷84＝87251.9643
7345861÷92＝79846.3152
7369582÷14＝526398.714
7419352÷86＝86271.5349
7421369÷58＝127954.638
7426519÷83＝89476.1325
7529136÷84＝89632.5714
7534286÷91＝82794.3516
7643915÷82＝93218.4756
7685124÷93＝82635.7419
7816243÷59＝132478.695
7834195÷62＝126357.984
7846532÷19＝412975.368
7932581÷64＝123946.578
7985213÷64＝124768.953
8132964÷57＝142683.579
8157423÷96＝84973.1562
8167234÷59＝138427.695
8235197÷64＝128674.953
8253917÷64＝128967.453
8375692÷14＝598263.714
8421576÷39＝215937.846
8637249÷51＝169357.824
8691324÷57＝152479.368
8765243÷19＝461328.579
8926375÷14＝637598.214
8937125÷64＝139642.578
8954631÷72＝124369.875
8963214÷57＝157249.368
8976325÷41＝218934.756
9138765÷42＝217589.643
9165827÷34＝269583.147
9237658÷14＝659832.714
9521836÷74＝128673.459
9526731÷48＝198473.562
9561428÷37＝258416.973
9714235÷68＝142856.397
9821345÷67＝146587.239
9845326÷17＝579136.824
9854672÷31＝317892.645
9857462÷31＝317982.645
9874521÷63＝156738.429
9875231÷46＝214678.935

3-digit devider: Count=133

124983÷576＝216.984375
125643÷879＝142.938567
125796÷348＝361.482759
128394÷765＝167.835294
132875÷496＝267.893145
134572÷986＝136.482759
142768÷359＝397.682451
146352÷987＝148.279635
147962÷583＝253.794168
156943÷287＝546.839721
157429÷638＝246.753918
158376÷429＝369.174825
163527÷948＝172.496835
167539÷482＝347.591286
182456÷937＝194.723586
189237÷546＝346.587912
194285÷736＝263.974185
198763÷254＝782.531496
215346÷798＝269.857143
217984÷365＝597.216438
218639÷745＝293.475168
219756÷348＝631.482759
234569÷187＝1254.37968
235491÷687＝342.781659
241596÷378＝639.142857
243865÷917＝265.937841
254176÷893＝284.631579
257139÷864＝297.614583
268314÷975＝275.193846
271654÷983＝276.351984
276154÷398＝693.854271
278435÷961＝289.734651
279148÷356＝784.123596
286197÷435＝657.924138
295748÷361＝819.246537
296451÷837＝354.182796
296475÷138＝2148.36957
296847÷513＝578.649123
324675÷819＝396.428571
327689÷451＝726.583149
329568÷714＝461.579832
341759÷862＝396.472158
342156÷978＝349.852761
347125÷896＝387.416295
354719÷628＝564.839172
361927÷845＝428.315976
362189÷745＝486.159732
364897÷512＝712.689453
369854÷721＝512.973648
382469÷715＝534.921678
385792÷416＝927.384615
386927÷451＝857.931264
389745÷261＝1493.27586
396821÷574＝691.325784
413592÷786＝526.198473
415678÷329＝1263.45897
431269÷785＝549.387261
436172÷598＝729.384615
452193÷687＝658.213974
476289÷351＝1356.94872
478269÷351＝1362.58974
479631÷852＝562.947183
479813÷256＝1874.26953
482536÷179＝2695.73184
483192÷756＝639.142857
485169÷327＝1483.69725
491256÷837＝586.924731
498623÷157＝3175.94268
523697÷184＝2846.17935
524167÷893＝586.973124
524961÷837＝627.193548
528479÷631＝837.526149
534728÷916＝583.764192
541897÷632＝857.431962
543697÷182＝2987.34615
546897÷231＝2367.51948
547189÷236＝2318.59746
547638÷921＝594.612378
547936÷218＝2513.46789
548976÷231＝2376.51948
549368÷721＝761.952843
562873÷914＝615.834792
564837÷219＝2579.16438
567428÷913＝621.498357
568341÷972＝584.712963
578324÷619＝934.287561
581934÷672＝865.973214
586172÷934＝627.593148
594176÷823＝721.963548
612574÷893＝685.973124
617398÷452＝1365.92478
619372÷845＝732.984615
621875÷394＝1578.36294
624957÷138＝4528.67391
625837÷914＝684.723195
628154÷379＝1657.39842
635294÷871＝729.384615
643281÷957＝672.184953
652481÷397＝1643.52897
674813÷529＝1275.63894
681945÷723＝943.215768
692154÷873＝792.845361
723854÷169＝4283.15976
739152÷468＝1579.38462
749123÷856＝875.143692
749685÷132＝5679.43182
761485÷392＝1942.56378
794635÷812＝978.614532
795643÷281＝2831.46975
812597÷643＝1263.75894
812957÷346＝2349.58671
815496÷327＝2493.87156
817639÷425＝1923.85647
837695÷241＝3475.91286
839462÷157＝5346.89172
847196÷532＝1592.47368
852746÷319＝2673.18495
854137÷629＝1357.92846
871235÷469＝1857.64392
892165÷374＝2385.46791
892567÷341＝2617.49853
897425÷136＝6598.71324
926178÷345＝2684.57391
938154÷627＝1496.25837
946185÷273＝3465.87912
948162÷573＝1654.73298
957234÷168＝5697.82143
961253÷487＝1973.82546
961743÷582＝1652.47938
971425÷368＝2639.74185
971465÷328＝2961.78354
976583÷421＝2319.67458
981532÷674＝1456.27893

4-digit devider: Count=167

12635÷4978＝2.53816794
12647÷5389＝2.34681759
13264÷8597＝1.54286379
13695÷4827＝2.83716594
13698÷2754＝4.97385621
13987÷6452＝2.16785493
14568÷2739＝5.31872946
14857÷9362＝1.58694723
15327÷6984＝2.19458763
15423÷7896＝1.95326748
15729÷6384＝2.46381579
15769÷4823＝3.26954178
15793÷2648＝5.96412387
15849÷3267＝4.85123967
16428÷3597＝4.56713928
16587÷2394＝6.92857143
16852÷3947＝4.26957183
16928÷4375＝3.86925714
17258÷4396＝3.92584167
17649÷3582＝4.92713568
17982÷4536＝3.96428571
18426÷7395＝2.49168357
18623÷7459＝2.49671538
21596÷3847＝5.61372498
21937÷8654＝2.53489716
23579÷1486＝15.8674293
23915÷6478＝3.69172584
24357÷9816＝2.48135697
25418÷3976＝6.39285714
25619÷7384＝3.46952871
25693÷7184＝3.57641982
25863÷4791＝5.39824671
25867÷9134＝2.83194657
26489÷5371＝4.93185627
26754÷9381＝2.85193476
26798÷3154＝8.49651237
26859÷7134＝3.76492851
29136÷5478＝5.31872946
29375÷1648＝17.8246359
29843÷5617＝5.31297846
31789÷6542＝4.85921736
32647÷5189＝6.29157834
32846÷9517＝3.45129768
32856÷7194＝4.56713928
32946÷7815＝4.21573896
32951÷6784＝4.85716392
34516÷8792＝3.92584167
34652÷8791＝3.94175862
35298÷7164＝4.92713568
35948÷2671＝13.4586297
36159÷7428＝4.86793215
36852÷1479＝24.9168357
37468÷5921＝6.32798514
37481÷2569＝14.5897236
38127÷5964＝6.39285714
38417÷2596＝14.7985362
38514÷2679＝14.3762598
38572÷6491＝5.94238176
38642÷7159＝5.39768124
39267÷8154＝4.81567329
39857÷2146＝18.5726934
41392÷8567＝4.83156297
42386÷1579＝26.8435719
43527÷6918＝6.29184735
43978÷5612＝7.83642195
45167÷8392＝5.38214967
45679÷1238＝36.8974152
45897÷2136＝21.4873596
46237÷5918＝7.81294356
46312÷9785＝4.73295861
46329÷5187＝8.93175246
47259÷1863＝25.3671498
47861÷3259＝14.6857932
47896÷2531＝18.9237456
49263÷8751＝5.62941378
49731÷6825＝7.28659341
51347÷6829＝7.51896324
51639÷7842＝6.58492731
52948÷1376＝38.4796512
53149÷2678＝19.8465273
53841÷2796＝19.2564378
53974÷6281＝8.59321764
56743÷8291＝6.84392715
56892÷3174＝17.9243856
57418÷3269＝17.5643928
57498÷1623＝35.4269871
58471÷3926＝14.8932756
59784÷6123＝9.76384125
59821÷3467＝17.2543986
61235÷4789＝12.7865943
61593÷2487＝24.7659831
62594÷3817＝16.3987425
63142÷9785＝6.45293817
63175÷2489＝25.3816794
63192÷8475＝7.45628319
63285÷9714＝6.51482397
63592÷4718＝13.4785926
63789÷2145＝29.7384615
64197÷3825＝16.7835294
64279÷1853＝34.6891527
64852÷1973＝32.8697415
65219÷8347＝7.81346592
65819÷7342＝8.96472351
65974÷8321＝7.92861435
67259÷4138＝16.2539874
67529÷4831＝13.9782654
68325÷4197＝16.2794853
68372÷4159＝16.4395287
68479÷5321＝12.8695734
68571÷9243＝7.41869523
68734÷2915＝23.5794168
69148÷3752＝18.4296375
69354÷2871＝24.1567398
69475÷2813＝24.6978315
71548÷2396＝29.8614357
71892÷3645＝19.7234568
71896÷5342＝13.4586297
73581÷9264＝7.94268135
73685÷4921＝14.9735826
73956÷8241＝8.97415362
74259÷8613＝8.62173459
74962÷5138＝14.5897236
76251÷3498＝21.7984563
76359÷1428＝53.4726891
76812÷9453＝8.12567439
76834÷5192＝14.7985362
78645÷3192＝24.6381579
78912÷4536＝17.3968254
78965÷1324＝59.6412387
79421÷5368＝14.7952683
79542÷6318＝12.5897436
79613÷4285＝18.5794632
81457÷3296＝24.7138956
81475÷3296＝24.7193568
81593÷6427＝12.6953478
84253÷1976＝42.6381579
84267÷5139＝16.3975482
84296÷3517＝23.9681547
85149÷6732＝12.6483957
85694÷1372＝62.4591837
85721÷3496＝24.5197368
85931÷4672＝18.3927654
86452÷1739＝49.7136285
87346÷9125＝9.57216438
87641÷5392＝16.2538947
89671÷3542＝25.3164879
91357÷2486＝36.7485921
91358÷2476＝36.8974152
91642÷5783＝15.8467923
91643÷7285＝12.5796843
91826÷7354＝12.4865379
92614÷3587＝25.8193476
92678÷1435＝64.5839721
92854÷1367＝67.9253841
94382÷1756＝53.7482916
94518÷3726＝25.3671498
95186÷7342＝12.9645873
95238÷1674＝56.8924731
95826÷1374＝69.7423581
96173÷5248＝18.3256479
96872÷1543＝62.7815943
97153÷6824＝14.2369578
97165÷2843＝34.1769258
97628÷1543＝63.2715489
98265÷7143＝13.7568249
98376÷2145＝45.8629371
98514÷6723＝14.6532798