将 CSV 文件中单元格的内容拆分为单独的单元格

Question

我有一个大型 CSV 文件，其中包含组织名称和地址。我需要将一个干净的 csv 文件交给需要围绕它们构建数据库的开发人员。

问题是街道名称和号码位于同一单元格中，并且需要将它们分开，以便我们可以按街道名称过滤组织。

因此，我想将地址单元格的内容拆分为两个单元格。地址单元格的构建方式如下：[街道名称][空格][数字][等] - 所以我只需要保留街道名称，并将街道名称后面的所有内容移动到另一个单元格。

一个示例是内容单元格 D7：

[D7]Konkylievej 3, 1.mf[/D7]

必须像这样拆分：

[D7]Konkylievej[/D7]

[E7]3, 1.mf[/E7 ]

CSV 文件的大小使得无法手动完成此操作。有什么办法可以自动完成吗？

Answer 1

不是最优雅的解决方案，但请尝试这个......

Option Explicit

Sub SeparateAtTheSpace()
        Dim cell As Range, areaToSplit As Range
        Dim str As String
        Dim i As Integer
        Set areaToSplit = Sheet1.Range("D1:D305")
        For Each cell In areaToSplit
                If IsEmpty(cell) = False Then
                        str = cell.Value
                        For i = 1 To Len(str)
                                If IsNumeric(Mid(str, i, 1)) Then
                                        If IsEmpty(cell.Offset(0, 1)) = True Then
                                                cell.Offset(0, 1).Value = Right(str, Len(str) - i + 1)
                                                cell.Value = Left(cell.Value, i - 1)
                                        End If
                                End If
                        Next i
                End If
        Next cell
End Sub

Answer 2

这会随着您使用的 Excel 版本的不同而略有变化，但基本上您应该选择列，然后在菜单中找到“文本到列”（最有可能是 2007 年之前版本中的“数据菜单”，或者 2007 年以后版本中的“数据功能区”。）
然后在对话框中选择“分隔”，然后告诉 Excel 使用空格将文本与列分隔开。

希望有效

Answer 3

由于您只需将其拆分为两个单元格，因此您可以使用一小段 VBA 代码来完成此操作。将其粘贴到 VBA 工作簿的 Sheet1 代码中（Alt-F11 进入 VBA 编辑器）。将范围从 A1:A200 更改为您需要的任何内容，以及不同的工作表名称（您的数据可能不在 Sheet1 上）。设置完成后，按 F5，它应该会执行您想要的操作。显然，您可能希望在原始数据的副本中对此进行测试，以确保获得预期的结果。我用“123 Main”填充了几个单元格，然后在 A 列中填充了“123”，在 B 列中填充了“Main”。它将把第一个空格右侧的所有内容放入 B 列中，并将所有内容修剪到右侧的空间，并将剩余的内容留在 A 列中。

Option Explicit

Sub SeparateAtTheSpace()
    Dim cell As Range, areaToSplit As Range
    Set areaToSplit = Sheet1.Range("A1:A200")
    For Each cell In areaToSplit
        If IsEmpty(cell) = False Then
            cell.Offset(0, 1).Value = Right(cell.Value, InStr(1, cell.Value, " ") + 1)
            cell.Value = Left(cell.Value, InStr(1, cell.Value, " "))
        End If
    Next cell
End Sub