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

DBZQZW · 发表于 2008-6-23 11:15

[em03][em04][em01]

suye1010 · 发表于 2008-6-23 12:57

Sub MIN() Dim arr0, arr, i As Integer, S As Integer arr0 = Range("A1:A" & Cells(65536, 1).End(xlUp).Row) ReDim arr(1 To UBound(arr0)) For i = 1 To UBound(arr0)     arr(i) = Abs(100 - arr0(i, 1)) Next i S = Application.WorksheetFunction.Match(Application.WorksheetFunction.MIN(arr), arr, 0) MsgBox "最接近的数值是" & Cells(S, 1) & ",地址是" & Cells(S, 1).Address End Sub

lxy29571968 · 发表于 2009-12-6 01:31

谢谢

vbyou126 · 发表于 2015-5-27 20:07

提示: 作者被禁止或删除内容自动屏蔽

广陵王 · 发表于 2015-5-28 11:09

谢谢您的分享

rlzcjrrmy · 发表于 2015-5-28 16:51

1111111111111111111111

laoau138 · 发表于 2017-3-2 13:21

ffdfdfdds

		自动登录	找回密码
密码			注册

vbyou126 vbyou126 当前离线积分 0 IP卡狗仔卡	发表于 2015-5-27 20:07 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
vbyou126 vbyou126 当前离线积分 0 IP卡狗仔卡
	回复使用道具举报显身卡

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

好久没有练习，试试看还记得多少^_^