如何查找最近更新的值？

作者：绿色风分类：时间：2022-08-17 浏览：144

楼主 syz105729913	Q：如何查找最近更新的值？ A：按Alt+F11，插入→模块→在VBE窗口中输入以下代码： Sub 查找最新价格() Dim X As Integer Dim Mrg As Range X = Application.CountIf(Range("A:A"), Range("E1")) Set Mrg = Range("A1") For Y = 1 To X Set Mrg = Range("A:A").Find(Range("E1"), Mrg) Next Y Range("E2") = Mrg.Offset(0, 1) End Sub 示例文件单元格查找.rar
2楼 omnw	换个思路。 Sub 查找最新价格() Dim X As Long For X = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 If Cells(X, 1) = Range("E1") Then Range("E2") = Cells(X, 2) Exit For End If Next X End Sub

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表