修改Excel列拼接VBA脚本：支持选列、逗号分隔及日期格式化

功能说明 #

• 支持选择1-4列进行内容拼接，结果以逗号分隔
• 自动识别日期单元格，将其统一格式化为mm/dd/yyyy
• 自动跳过空单元格，与手动使用TEXTJOIN公式的输出结果完全一致

完整VBA代码 #

Sub ConcatMultipleColumns()
    Dim selectedRng As Range
    Dim targetCol As Range
    Dim rowNum As Long
    Dim concatText As String
    Dim colCount As Integer
    Dim cell As Range
    
    ' 让用户选择待拼接的1-4列（可选择整列或数据区域）
    On Error Resume Next
    Set selectedRng = Application.InputBox("请选择要拼接的1-4列", Type:=8)
    On Error GoTo 0
    
    ' 校验选择有效性
    If selectedRng Is Nothing Then Exit Sub
    colCount = selectedRng.Columns.Count
    If colCount < 1 Or colCount > 4 Then
        MsgBox "请选择1到4列！", vbExclamation
        Exit Sub
    End If
    
    ' 自动定位结果输出列（选择区域右侧第一空列）
    Set targetCol = selectedRng.Offset(0, colCount).Columns(1)
    
    ' 逐行处理数据
    For rowNum = 1 To selectedRng.Rows.Count
        concatText = ""
        ' 遍历当前行的每一列
        For Each cell In selectedRng.Rows(rowNum).Cells
            If Not IsEmpty(cell.Value) Then
                ' 日期单元格格式化，非日期直接取内容
                If IsDate(cell.Value) Then
                    concatText = concatText & Format(cell.Value, "mm/dd/yyyy") & ","
                Else
                    concatText = concatText & cell.Value & ","
                End If
            End If
        Next cell
        
        ' 移除末尾多余的逗号
        If Len(concatText) > 0 Then
            concatText = Left(concatText, Len(concatText) - 1)
        End If
        
        ' 写入拼接结果
        targetCol.Cells(rowNum).Value = concatText
    Next rowNum
    
    MsgBox "拼接完成！", vbInformation
End Sub

代码关键细节 #

• 选择列限制：通过输入框引导用户选择1-4列，避免无效操作
• 日期处理：用IsDate判断单元格类型，Format函数统一日期格式
• 空值过滤：跳过空单元格，不会在结果中产生多余逗号
• 高效操作：摒弃原脚本的Select/ActiveCell操作，直接通过Range对象读写，提升运行效率
• 自动输出：结果自动写入选择区域右侧的第一空列，无需手动指定位置

使用步骤 #

1. 打开Excel，按Alt + F11打开VBA编辑器
2. 插入新模块，粘贴上述代码
3. 返回Excel，按Alt + F8选择ConcatMultipleColumns执行
4. 按提示选择待拼接的列，等待完成即可

内容的提问来源于stack exchange，提问作者user16201107