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

cjch1969

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>不看不看</i>在2008-6-20 21:34:00的发言：</b><br/><p>一句的</p><p></p><p>&nbsp;</p></div><p>数值小于100的可以</p>

laosanjie

<p>来一个“乾坤大挪移”的 [em01]<br/>

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

&nbsp;

liuhao_goody

下来练练.

jiangnan329

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

[此贴子已经被作者于2008-6-21 0:08:47编辑过]

zh001

学习一下

皮皮1998

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

兰色幻想

大家的答案也不错，呵呵，我的参考答案在一楼已给出，大家对比一下吧

一剑惊心

学习

huhaiyan

[em06]

Scarlett_88

<p>Sub check()<br/>Dim a, dd As Integer, value As Integer, k As Integer<br/>a = [a1:a13]<br/>value = Abs(Range("a1") - 100)<br/>k = 1<br/>For dd = 2 To Range("a65536").End(xlUp).Row<br/>&nbsp;&nbsp;&nbsp; If Abs(Range("a" &amp; dd) - 100) &lt; value Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; value = Abs(Range("a" &amp; dd) - 100)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; k = dd<br/>&nbsp;&nbsp;&nbsp; End If<br/>Next<br/>MsgBox "最接近100的值" &amp; Range("a" &amp; k) &amp; ",地址是" &amp; Range("a" &amp; k).Address<br/>&nbsp;Range("a" &amp; k).Select</p><p>End Sub</p>