[分享]一些自定义函数

fanrong88

支持一下!

rbq555

感觉太神奇了，谢谢！

围棋解围

顶下下再说吧

moonbaby916

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？
能解释的详细点吗？非常感谢！

阿呀

顶下下再说吧