该篇文章是我于2009年6月10日通过自己编写的工具，批量从位于在博客园的博客站点(http://chenxizhang.cnblogs.com)同步而来。文章中的图片地址仍然是链接到博客园的。特此说明！陈希章原文地址：http://www.cnblogs.com/chenxizhang/archive/2009/05/28/1491478.html |
今天被网友问到这样一个问题：
这个问题很多朋友都会想到用vlookup去解决。但事实是vlookup函数可能达不到目的。我们一般可以通过自定义函数来解决，这样的话，逻辑再复杂也可以处理。
下面我写了一个简单的函数，它就是循环，从后往前找，找到匹配的就不找了。这与vlookup函数的从前往后找的原理是相反的。
Function GetLastPriceValue(coderng As Range) As Variant
'这个函数是用来取得最近的一个单价的
'输入参数coderng指的是条件代码的单元格
'大致使用的方法就是：GetLastPriceValue(B16)这样即可
Dim v As Variant
v = coderng.Value
Do While coderng.Row > 1
Set coderng = coderng.Offset(-1)
If coderng.Value = v Then
GetLastPriceValue = coderng.Offset(, 5).Value
GoTo Exit_Func
End If
Loop
Exit_Func:
End Function
另外，这位朋友也问到，如何在函数中删除某行数据？
关于通过公式删除数据，不少朋友都有这样的想法，但是：不可以。（你确实可以写删除的语句，但不会有效果的）
|
作者：陈希章 出处：http://blog.csdn.net/chen_xizhang 本文版权归作者所有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。 |