vba - Excel宏用分隔符连接可变长度的行

Question

我正在开发一个工作表，用户可以填写以生成可以上传到 SAP 的文件。

该工作表将生成单个条目的大量上传。系统将要求用户为他们请求的每个订单项提供属性，这些属性可能会根据所做的选择而有所不同(即，一行可能有 5 个属性，而下一行可能有 7 个)。

我想编写一个宏，它将查看每一行，从顶部开始，并仅连接非空白的属性列(在每个实例中由另外两列分隔)，并在每个字段之间使用分隔符。

我已经能够使用通过 Microsoft 找到的一些代码来完成循环(见下文)，但我无法弄清楚如何在列为空白时停止连接然后移动到下一行。

Sub Submit()
Range("C2").Activate
Do While ActiveCell <> ""  

ActiveCell.Offset(0, 21).FormulaR1C1 = _
ActiveCell.Offset(0, 0) & "-" & ActiveCell.Offset(0, 3) & "-" & 

ActiveCell.Offset(0, 6) & "-" & ActiveCell.Offset(0, 9) & "-" & ActiveCell.Offset(0, 12) & "-" & ActiveCell.Offset(0, 15) & "-" & ActiveCell.Offset(0, 18)

ActiveCell.Offset(1, 0).Select

Loop
End Sub

现在，当我真的希望它显示为“1-2-3-4-5”时，这段代码将采用五个属性条目并给我留下“1-2-3-4-5--”。

关于我如何去做这件事的任何想法？最终，我希望能够存储这些字符串并将它们填充到一个新的工作簿中，其中包含从原始工作簿复制的一些其他信息。

Answer 1

未经测试:

Sub Submit()

Dim c As Range, c2 As Range, v as String


Set c = Range("C2")
Do While c.Value <> ""  

    Set c2 = c
    v = ""
    Do While c2.value <> ""
        v = v & IIf(v <> "", "-", "") & c2.value
        Set c2 = c2.offset(0, 3)
    Loop
    c.offset(0, 21).Value = v

    Set c = c.Offset(1, 0) 

Loop
End Sub