这里有令人惊叹的Excel超级公式技术

然而，公式的能力还不止于此。我们在使用VBA进行编程时，在程序代码中嵌入适当的Excel公式，可以达到很好的效果，可以简化程序代码，让程序更有效率。

在使用Evaluate方法展开区间数字中，VBA代码中使用了Excel公式：

Join(Evaluate('transpose(row(' & Var(0) & ':' &
Var(1) & '))'), ', ')

例如，对于(2001-2006)来说，上述代码就是：

Join(Evaluate('transpose(row(' & (2001 & ':' &
2006) & '))'), ', ')

其中对应的Excel公式为：

transpose(row(2001:2006))

会生成数组：

{2001,2002,2003,2004,2005,2006}

一句代码全部搞定！

如果你要用通常的循环来实现，则要编写代码：

txt=mid(txt,2,len(txt-2))

For i=Var(0) to Var(1)

years=i & ','

Next i

years=left(years,len(years-1))

代码多一些，但好理解，这点比嵌入公式的代码更好。

参考文章：

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。