最接近数字100的单元格（参考答案在1楼）

Scarlett_88

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>laosanjie</i>在2008-6-20 23:40:00的发言：</b><br/><p>来一个“乾坤大挪移”的 [em01]<br/>&nbsp;</p></div><p>你真牛!!!</p>[em01]

Scarlett_88

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>皮皮1998</i>在2008-6-21 14:15:00的发言：</b><br/></div><p>Sub 查找2() <br/>For i = 1 To 13<br/>Cells(i, 2) = Abs(Cells(i, 1) - 100)<br/>Next i<br/>r = Range("b1:b13").Find(Application.min(Range("b1:b13"))).Row<br/>MsgBox "最接近100的数为:" &amp; Cells(r, 1) &amp; Chr(10) &amp; "地址是:" &amp; Cells(r, 1).Address<br/>Range("b1:b13").Clear<br/>End Sub</p><p><br/>该程序运行，数列中有大于１００时，结果是错的</p>

mfk1288

<p>看看我这样行不行?</p><p>

游客，如果您要查看本帖隐藏内容请回复

Scarlett_88

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>laosanjie</i>在2008-6-20 23:40:00的发言：</b><br/><p>来一个“乾坤大挪移”的 [em01]<br/>&nbsp;</p></div><p>不对呀。在数组中改一个数为101，“乾坤大挪移”后结果仍为82，不变为101。</p>[em01][em01][em01]

fzylx

查看高手的答案。

zjxia889

<p>看</p>

hot

<p>本打算忙完这两天做，看到答案贴出来又懒的做了。就先学习了。</p>

scjsjx2000

<p>数组</p><p>=MIN(ABS(A1:A13-100))</p><p></p>

冰雪儿

<p>学习</p>

magiclight

<p>Sub aa()<br/>&nbsp;&nbsp;&nbsp; Dim min%, n%, min_row%<br/>&nbsp;&nbsp;&nbsp; min = Range("a1")<br/>&nbsp;&nbsp;&nbsp; For n = 1 To [a65536].End(xlUp).Row<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Abs(Range("a" &amp; n) - 100) &lt; Abs(min - 100) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; min = Range("a" &amp; n)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; min_row = n<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Next n<br/>&nbsp;&nbsp;&nbsp; MsgBox "最接近100的值是" &amp; min &amp; Chr(10) &amp; "单元格地址是A" &amp; min_row<br/>End Sub</p><p>我的答案</p>[em01]