Question

我正在学习VBA并试图为我做一些有点复杂的事情。这是交易：

在我的“H”列中，我使用“CONCATENATE”公式来获取每行所需的所有元素的键。正如你所看到的，一些元素没有被填充，我有不想要的“ - ”分隔符。我想要一个宏来搜索和替换我不想要的双重，三（...）分隔符，如果有一行只填充分隔符（即我的H5单元格），我希望它能够无需替换。

问题是，我想在将来添加一些列/行，并且我不想在每次添加列或行时更改宏。因此，如果有办法对我的宏说话，那就太棒了：“只要有一条线路上只有分隔符，只需要用分隔符替换它”。

这是我不知道如何处理的部分。你们能给我一个提示吗？

感谢和抱歉这篇长篇文章，这是一个卡哇伊土豆

potato - Hi 9gag users!

Answer 1

TEXTJOIN（分隔符，ignore_empty，text1，[text2]，...）

= TEXTJOIN（“ - ”，TRUE，A2：G2）

更新：如果您的Excel版本没有TEXTJOIN

Function UDFTextTJoin(delimiter As String, ignore_empty As Boolean, ParamArray Text()) As String
    Dim s As String
    Dim v As Variant
    Dim x As Long

    For x = 0 To UBound(Text)
        If TypeName(Text(x)) = "Range" Then
            For Each v In Text(x)
                If Not ignore_empty Or v <> "" Then
                    If Len(s) Then s = s & delimiter
                    s = s & v
                End If
            Next
        Else

            If Not ignore_empty Or Text(x) <> "" Then
                If Len(s) Then s = s & delimiter
                s = s & Text(x)
            End If
        End If
    Next

    UDFTextTJoin = s

End Function

Answer 2

可以肯定的是，有一些方法可以从一开始就避免使用这种模式，但这是一个用于进行（后期）清理的宏：

Sub Cleanup()
    Dim cel As Range, i As Long
    With Worksheets("Products").UsedRange.Columns("J")
        For i = 1 To 5
           .Replace "- - ", "- "
        Next
        For Each cel In .Cells
            If Trim(cel.Value) = "-" Then cel.Clear
        Next
    End With
End Sub

修改：

由于你和我没有TextJoin，并且它是好朋友提出的一个很好的解决方案，让我们把它作为UDF。您可以将以下代码添加到任何非类代码模块，并将其用作用户定义的公式（UDF）：

Public Function TextJoin(ByVal sep As String, ByVal ignoreEmpty As Boolean, ByRef ar As Variant) As String Dim cel As Range For Each cel In ar If Trim(cel.Text) <> "" Or Not ignoreEmpty Then If TextJoin <> "" Then TextJoin = TextJoin + sep TextJoin = TextJoin + cel.Text End If Next End Function

VBA - 计算空cols，搜索和替换

2 个答案:

更新：如果您的Excel版本没有TEXTJOIN