我正在尝试使用 vba 将变量数组转换为字符串。
我尝试了两种方法,但都不起作用,它们似乎都在同一点上阻塞。
Dim cell As Range
Dim val As Variant
For Each cell In Range("packing_list[Code]")
val = cell.Value
Next cell
MsgBox Join(val, "//")
and
Dim oSh As Worksheet
Dim CodeRange As Variant
Set oSh = ActiveSheet
CodeRange = oSh.Range("packing_list[Code]").Value
MsgBox Join(CodeRange , "//")
它们都在 MsgBox 行上出错。我做错了什么?
Thanks
您尝试连接的值不是字符串数组。 Join 应该用在数组上
以下是 Microsoft 说明的链接:https://msdn.microsoft.com/en-us/library/b65z3h4h%28v=vs.90%29.aspx https://msdn.microsoft.com/en-us/library/b65z3h4h%28v=vs.90%29.aspx
他们的例子是:
Dim TestItem() As String = {"Pickle", "Pineapple", "Papaya"}
Dim TestShoppingList As String = Join(TestItem, ", ")
您的代码应该类似于:
Dim i As Integer
Dim cell As Range
Dim val() As Variant '() indicate it is an array
i = 0
For Each cell In Range("packing_list[Code]")
ReDim Preserve val(0 to i) As Variant 'must resize array to fit number of items
val(i) = cell.Value 'i is the position of the item in the array
i = i + 1 'increment i to move to next position
Next cell
'Now that you have an array of values (i.e. ("String1", "String2", ...) instead of just "String" you can:
MsgBox Join(val, "//")
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)