excel - 在 Excel 范围内 - 忽略空单元格

Question

我正在使用 excel 范围进行连接:Set rng = Range("A1:A8")如果范围内的单元格之一为空，则会添加一个空格。
你如何阻止这个空间被添加？

Answer 1

假设您在那些非空单元格中有常量:

Set rng = Range("A1:A8").SpecialCells(2)

不幸的是，不连续的范围使我们无法放置 rng放入数组或在 Join 中使用手术。您必须循环该范围内的每个单元格。

但是，我会使用 Application.Trim而不是设置范围。这样我们就可以通过内存(数组)而不是更缓慢的 Range 工作。对象引用:

Sub Test()

Dim arr As Variant: arr = [TRANSPOSE(A1:A8)]
Debug.Print Application.Trim(Join(arr, " "))

End Sub

或者，如果您不想使用 .Evaluate :

Sub Test()

Dim arr As Variant: arr = Range("A1:A8")
With Application
    Debug.Print .Trim(Join(.Transpose(.Index(arr, 0, 1)), " "))
End With

End Sub

注1:我们需要 Transpose返回一维数组，以便在 Join 中使用.

注2:如果有人可以访问 TEXTJOIN函数，不需要所有这些，但是您可以以数组形式使用该函数。