如何将换行格式地址自动转换为适配Excel CSV的逗号分隔格式？

可以通过VBA实现自动转换，以下是具体方案：

核心逻辑 #

读取多行格式的地址文本，按换行拆分后对应填充到「姓名、街道地址、公寓/套房号、城市、州、邮编」6个固定字段中，缺失的字段留空，最后拼接成符合CSV列要求的逗号分隔字符串，直接复制到剪贴板方便粘贴。

VBA代码实现 #

在Excel中按以下步骤操作：

1. 按下Alt + F11打开VBA编辑器
2. 右键点击当前工作簿 → 插入 → 模块
3. 粘贴以下代码：

Sub ConvertAddressToCSV()
    Dim inputText As String
    Dim addressParts As Variant
    Dim csvResult As String
    Dim fields(1 To 6) As String
    Dim i As Integer
    
    ' 获取用户输入的换行地址
    inputText = InputBox("粘贴换行格式的地址：", "地址转换")
    If inputText = "" Then Exit Sub
    
    ' 按换行拆分地址行
    addressParts = Split(inputText, vbCrLf)
    
    ' 初始化所有字段为空
    For i = 1 To 6
        fields(i) = ""
    Next i
    
    ' 填充字段，自动去除每行前后空格
    For i = LBound(addressParts) To UBound(addressParts)
        If i <= 5 Then ' 最多对应6个字段位置
            fields(i + 1) = Trim(addressParts(i))
        End If
    Next i
    
    ' 拼接成CSV格式（保留示例中的空格风格）
    csvResult = fields(1) & ", " & fields(2) & ", " & fields(3) & ", " & fields(4) & ", " & fields(5) & ", " & fields(6)
    
    ' 将结果复制到剪贴板
    Dim clipboard As Object
    Set clipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    clipboard.SetText csvResult
    clipboard.PutInClipboard
    Set clipboard = Nothing
    
    MsgBox "转换完成，结果已复制到剪贴板：" & vbCrLf & csvResult, vbInformation
End Sub

使用步骤 #

1. 保存文件为「启用宏的工作簿」（.xlsm格式）
2. 按下Alt + F8，选择ConvertAddressToCSV执行
3. 在弹出的输入框中粘贴换行格式的地址，点击确定后，转换结果会自动复制到剪贴板，直接粘贴到CSV文件或Excel即可

适配特殊情况 #

• 若缺失公寓/套房号，对应位置会自动留空，符合示例要求
• 自动清理每行前后的多余空格，避免格式混乱
• 即使地址行数少于6行，也会自动补全空字段，保证CSV列对应准确

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