如何在Excel VBA中提取同一列多个选中单元格的值并格式化？

完全可以实现这个需求，以下是直接可用的VBA代码：

Sub ExtractAndFormatReceiptNumbers()
    Dim selectedRows As Range
    Dim cell As Range
    Dim receiptNumbers As String
    Dim outputText As String
    
    ' 检查是否选中了单元格区域
    If TypeName(Selection) <> "Range" Then
        MsgBox "请先选中需要处理的行区域", vbExclamation
        Exit Sub
    End If
    
    Set selectedRows = Selection.Rows
    
    ' 遍历选中行的J列单元格，收集值
    For Each cell In selectedRows.Columns("J").Cells
        If cell.Value <> "" Then ' 跳过空单元格
            If receiptNumbers <> "" Then
                receiptNumbers = receiptNumbers & "　" ' 全角空格分隔
            End If
            receiptNumbers = receiptNumbers & cell.Value
        End If
    Next cell
    
    ' 生成指定格式的文本
    outputText = "受付番号：" & receiptNumbers
    
    ' 将结果复制到剪贴板，方便直接粘贴
    Dim objClipboard As Object
    Set objClipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    objClipboard.SetText outputText
    objClipboard.PutInClipboard
    Set objClipboard = Nothing
    
    MsgBox "已生成格式文本并复制到剪贴板：" & vbCrLf & outputText, vbInformation
End Sub

代码说明 #

• 先校验用户是否选中了单元格区域，避免无选择时运行出错
• 遍历选中行的J列，收集非空单元格的值，用全角空格分隔（和示例格式匹配）
• 拼接成「受付番号：XXX　XXX　XXX」的目标格式
• 将结果复制到剪贴板，直接就能粘贴到需要的位置

使用方法 #

1. 打开Excel，按Alt + F11打开VBA编辑器
2. 插入新模块：右键点击当前工作簿 → 插入 → 模块
3. 将上述代码粘贴到模块中
4. 返回Excel，选中需要处理的行（选中任意列都可，代码会自动对应J列）
5. 按Alt + F8，选择ExtractAndFormatReceiptNumbers宏并执行
6. 弹出提示后，直接粘贴即可得到目标格式文本

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