我刚刚经历了一个宏的突然故障。它调用以下函数,该函数使用选定的可选分隔符连接一系列单元格:
Public Function MAKELIST(ByVal cellRange As Range, Optional ByVal delimiter As String)
'Function to join a range of cells together with an optional
Dim c As Range
Dim newText As String
Dim Count As Integer
Count = 0
newText = ""
For Each c In cellRange
Count = Count + 1
newText = newText & c.Value
If Count < cellRange.Count Then
newText = newText & delimiter
End If
Next
MAKELIST = newText
End Function
它只是将手动输入的单元格数据连接在一起 - 任何值似乎都在破坏它。问题似乎在于如何引用/调用函数(对不起,命名法不好),而不是函数本身。
这工作得很好。我在文件夹之间移动文件,它突然停止工作,每次都返回#NAME
错误。代码中没有任何变化,所以我用相同的 VBA 将其从 MAKELIST
更改为 MAKELIST2
。这非常有效。但是,我显然不希望必须更改工作簿中对该函数的每个引用,并且我希望它是健壮且面向未来的,这样其他用户就不会发生这种情况。谁能说明为什么会发生这种情况?
谢谢!
查看有问题的范围会很有用。虽然你可以使用这个更短的功能
[更新以处理多个列范围]
Public Function MAKELIST2(ByVal cellRange As Range, Optional delimiter As String)
Dim rng1 As Range
For Each rng1 In cellRange.Columns
MAKELIST2 = MAKELIST2 & Join(Application.Transpose(rng1), delimiter)
Next
End Function