时间戳

首页 > 解决方案 > Vba连接多列直到空白

excel - Vba连接多列直到空白

问题描述

我正在尝试创建一个宏来连接多个列，直到找到一个空单元格，当它找到时应该将连接的文本放在第一个单元格中。该图像显示了它应该如何工作。在这个例子中，我有从 B 到 M 的值，但它可能会有所不同。感谢您的帮助和时间！

标签： excelvbaconcatenationmultiple-columns

解决方案

这是一个 VBA 解决方案。我假设第二列总是有一个值。

Sub Concat()
Dim i As Integer, Sht As Worksheet, Str As String
i = 3
Set Sht = ThisWorkbook.Sheets(1) 'Change this to whatever sheet you're using
Str = Sht.Cells(1, 2).Value
Do Until Sht.Cells(1, i).Value = ""
    Str = Str & "-" & Sht.Cells(1, i).Value
    i = i + 1
Loop
Sht.Cells(1, 1).Value = Str
End Sub

推荐阅读