MS Access 03 - 规范化 Excel 电子表格中的数据

Question

我有一个关于分解某些东西的方法的问题。 我收到了这个 Excel 电子表格，它为我提供了制作一份报告所需的数据。 它非常简单明了，但其中有一个特定的部分让我有些悲伤。

在 Excel 电子表格中有一列，其中在一列中列出了“相关方”。 它通常是大约 12 个人的名字，用逗号分隔，但后面还有括号中的 orgID：

joe smith (DIV32)、john doe (DIV12)、roger andrews (DIV14、DIV67、DIV01) 等，

我需要将它们分解为单独的列，以便一旦我将它们导入访问，它们将成为单独的字段。 我知道如何在 Excel 中“文本到列”，但是当 jon doe（DIV13、DIV54 等）有多个分区时，这会搞砸。

不确定如何在访问中执行此操作，但很想知道。

请问有人有excel公式或者访问方法吗？

Answer 1

我假设您正在将其导入数据库中。 如果没有，那么即使是暂时的，也可能会更容易。 并在每次必须运行报告时重做

您最终将得到三个表来代表这种情况

1. theParty（人）
2. theOrganization
3. thePartyOrg

theParty 有一个 ID 列

theOrganization 将有它自己的 ID 列

thePartyOrder 将有它自己的 ID 列，一个代表政党，一个代表组织

每当您想代表一个政党作为组织的成员时，您必须确保该政党存在/已创建； 组织存在/已创建，然后在 thePartyOrg 表中创建一个指向两者的条目。

由于此连接信息仅作为文本存储在单个列中，因此最简单的方法可能是首先将其全部读入暂存表，然后在 VBA 中解析该列

Answer 2

这是一个解决方案：

我编写了一个函数，用 strReplace 替换所有出现的字符串 strFind，但前提是 strFind 出现在括号内。 因此，您可以将所有“,”字符替换为其他字符（例如“*”），然后将 Excel 的文本运行到列中，然后再次将“*”替换为“,”。

Function replace_paren(strSource As String, strFind As String, strReplace As String) As String
    ' Within strString, replaces any occurrence of strFind with strReplace *IF* strFind occurs within parentheses '

    Dim intOpenParenIndex As Integer
    Dim intCloseParenIndex As Integer

    Do
        intOpenParenIndex = InStr(intCloseParenIndex + 1, strSource, "(")
        intCloseParenIndex = InStr(intOpenParenIndex + 1, strSource, ")")
        If intOpenParenIndex = 0 Then
            Exit Do
        End If

        Mid(strSource, intOpenParenIndex, intCloseParenIndex - intOpenParenIndex) = Replace(Mid(strSource, intOpenParenIndex, intCloseParenIndex - intOpenParenIndex), strFind, strReplace)
    Loop

    replace_paren = strSource

End Function

步骤如下：

1) 将此宏复制到 Excel 工作簿中的模块中

2) 假设您的字符串位于 A 列中。在 B 列中，设置函数来替换逗号，如下所示

=replace_paren(A1,"," ,"*")

3) 在列中填充公式

4) 将列复制并粘贴为值

5) 使用 Excel 的文本到列以使用“,”作为分隔符来解析列

6) 再次使用replace_paren 替换所有出现的“*“ 经过 ”，”