Question

我有一个由SQL查询创建的表，其中每个结果都合并到一个单元格中。我想在不同的行上正确关联每个值。

目前数据设置如下：

    +-------+---------+-------------------------------------------+---------------+

    |   ID  |  Desc   |                  Users                    |   Functions   |

    +-------+---------+-------------------------------------------+---------------+

    |   a   | a desc  | First Last [uname3], First Last [uname45] | abc, def, xyz |
    +-------+---------+-------------------------------------------+---------------+
    |   b   | b desc  | First Last [uname8], First Last [uname72] | lmn, def, xyz |
    +-------+---------+-------------------------------------------+---------------+

我希望将它呈现为：

    +-------+---------+----------------------+---------------+

    |   ID  |  Desc   |   Users              |   Functions   |

    +-------+---------+----------------------+---------------+

    |   a   | a desc  | First Last[uname3]   | abc, def, xyz |
    +-------+---------+----------------------+---------------+
    |   a   | a desc  | First Last [uname45] | abc, def, xyz |
    +-------+---------+----------------------+---------------+
    |   b   | b desc  | First Last[uname8]   | lmn, def, xyz |
    +-------+---------+----------------------+---------------+
    |   b   | b desc  | First Last [uname72] | lmn, def, xyz |
    +-------+---------+----------------------+---------------+

我会手动执行此操作，但在同一单元格中列出了多达125个用户的~75行。

感谢您的帮助！

Answer 1

假设您的数据存储在名为A的工作表的D到TheNameOfSheet列中：

Dim i As Integer, j As Integer
Dim users() As String
Dim wsh As Worksheet

Set wsh = ThisWorkbook.Worksheets("TheNameOfSheet")

i = 1 'starting row
Do
    'get the list of users and split it by comma
    users = Split(wsh.Range("C" & i), ", ")
    'go through the list of users
    For j = LBound(users()) To UBound(users())
        'insert new row 
        If j>0 Then wsh.Range("A" & i).EntireRow.Insert(Shift:=xlShiftDown)
       'copy original data
        wsh.Range("A" & i) = wsh.Range("A" & i)
        wsh.Range("B" & i) = wsh.Range("B" & i)
        'insert single name 
        wsh.Range("C" & i) = users(j)
        wsh.Range("D" & i) = wsh.Range("D" & i)
        'increase counter
        i = i + 1
    Next j
    i = i +1   
Loop

有关详细信息，请参阅：
MS Excel: How to use the SPLIT Function (VBA)
Range.Insert Method (Excel)

注意：我没有测试过这段代码！我是直接从我的头上写的;）

Answer 2

如果您对编写excel宏不感兴趣。然后这样做。在我们的Excel中复制粘贴已排序的结果两次。

选择整个用户列，选择带分隔符为Coma的列的文本，根据用户列

对所有列（inc / desc，您的愿望）进行排序

然后在函数和用户之间再插入一行。粘贴以下公式 =新添加的列的第一个单元格上的IF（D3 = D2，E3，D3）并拖动到底部。

输出将如下图所示。

重新列出D和E列。您可以根据需要获得最终结果

拆分Excel单元格以分隔行

2 个答案: