[分享]一些自定义函数

fanrong88 · 发表于 2007-1-10 08:31

支持一下!

rbq555 · 发表于 2012-4-30 21:48

感觉太神奇了，谢谢！

围棋解围 · 发表于 2013-4-14 15:07

顶下下再说吧

moonbaby916 · 发表于 2013-9-1 21:10

andysky 发表于 2006-12-29 08:16
Function 合并(sky As Range, N As String)Dim j As Integerj = Application.WorksheetFunction.CountA(sky ...

版主，我没学过VBA，但感兴趣，有问题向您请教。
这个合并函数中j是统计的sky单元格区域的非空单元格个数‘，N是指合并用的符号，那么以下的代码是什么意思呢？
For Each andy In sky
If andy <> "" Then
k = k + 1
If k > j Then Exit Function
If k = j Then
合并 = 合并 & andy
Else
合并 = 合并 & andy & N
End If
End If
Next

andy 指的是什么？k=k+1 是什么意思？为什么当k>j就退出函数？而当k=j，就合并 = 合并 & andy，而k<j，就合并 = 合并 & andy & N？
能解释的详细点吗？非常感谢！

阿呀 · 发表于 2014-3-31 23:15

顶下下再说吧

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