Excel VBA：数组引用上的合并函数（文本和数字的混合）
我正在尝试合并多个电子表格中的一系列单元格，我知道我可以使用excel中的“合并”功能来处理这些单元格 我有一组单元格，它们由文本和数字组成，通过连接它们 （例如，=“e by”&2） 我希望最终只合并单元格的最后一个数字，但合并所有其他电子表格的整个范围。它们在具有相同公式的相同选项卡名称中共享相同位置 如果我使用标准的合并函数，它将返回零，因为数组不能只识别数字 是否有任何方法可以使用合并函数VBA，使我只能合并数字（本例中的最后一位） 我的代码如下 谢谢你的帮助Excel VBA：数组引用上的合并函数（文本和数字的混合）,excel,vba,Excel,Vba,我正在尝试合并多个电子表格中的一系列单元格，我知道我可以使用excel中的“合并”功能来处理这些单元格 我有一组单元格，它们由文本和数字组成，通过连接它们 （例如，=“e by”&2） 我希望最终只合并单元格的最后一个数字，但合并所有其他电子表格的整个范围。它们在具有相同公式的相同选项卡名称中共享相同位置 如果我使用标准的合并函数，它将返回零，因为数组不能只识别数字 是否有任何方法可以使用合并函数VBA，使我只能合并数字（本例中的最后一位） 我的代码如下 谢谢你的帮助 If Ce
If Cell <> "" Then
i = i + 1
ReDim Preserve WeeklyErrorArray(1 To i)
WeeklyErrorArray(i) = Replace(Replace("'[" & Filename & " (" & Locname & ") " & "CY20CONSOL.xlsm]63 Wk Hours'!R7C4:R90C4", "/", " "), "'", "")
Next
Counter = 0
Selection.Consolidate Sources:=(WeeklyErrorArray(counter + 1)), Function:=xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:=False
如果单元格为“”，则
i=i+1
ReDim Preserve WeeklyErrorArray（1到i）
WeeklyErrorArray（i）=替换（替换（“[”&Filename&“（“&Locname&”）和“CY20CONSOL.xlsm]63个工作小时”！R7C4:R90C4“，”/”，“），“，”）
下一个
计数器=0
选择。合并源：=（WeeklyErrorArray（计数器+1）），函数：=xlSum，TopRow:=False，LeftColumn:=False，CreateLinks:=False