在 Excel 2003 中将信息从 1 列拆分为 4 列答案

【问题标题】：Split information from 1 column to 4 columns in Excel 2003在 Excel 2003 中将信息从 1 列拆分为 4 列
【发布时间】：2018-03-08 11:43:12
【问题描述】：

我在 Excel 2003 中有一个包含雇主信息的列表。

我收到的列表与同一列中的信息：

某事日期：

    SECTOR X
NAME
KETCHUP, ASH
25/01/2017
31/02/2017
DORKMAN, RYAN
28/01/2017
30/05/2017
PEROTI, MAMA
26/01/2017
13/02/2017
28/06/2017
 SECTOR Y 
NAME
JIMENEZ, PEPE
16/01/2017
REDFIED, CHRIS
12/01/2017
JUMILLA , MANUEL
02/01/2017
12/01/2017
22/07/2017
30/07/2017
 SECTOR U 
NAME
KENEDY, LION
16/04/2017
VALENTINE, JILL
12/07/2017
KEPER, KNOR
02/03/2017
12/03/2017
22/10/2017
30/10/2017

我有 100 多个名字，每个名字都有各自的月份。

我这样粘贴：

某事日期

SECTORS       NAME             DATE    TOTAL
SECTOR X      KETCHUP, ASH     jan/17    1
                               feb/17    1
              DORKMAN, RYAN    jan/17    1
                               may/17    1
              PEROTI, MAMA     jan/17    1
                               feb/17    1
                               jun/17    1
SECTOR Y            
             JIMENEZ, PEPE     jan/17    1
             REDFIED, CHRIS    jan/17    1
             JUMILLA , MANUEl  jan/17    2
                               juL/17    2
 SECTOR U           
             KENEDY, LION      apr/17    1
             VALENTINE, JILL   jan/17    1
             KEPER, KNOR       mar/17    2
                               oct/17    2

我正在尝试制作一个动态表格，但我不知道如何将信息分成 4 列。如何将“扇区名称”转换为列？。

【问题讨论】：

到目前为止您尝试过什么？您可以发布数据但不能作为图像发布吗？如果您希望有人尝试回复您的数据，那么输入所有这些数据真的很烦人。
在 Excel 2016 中打开 XLS，使用 Power Query 然后将结果另存为 XLS。
idownvotedbecau.se/noattempt 和 idownvotedbecau.se/nomcve

标签： excel vba excel-2003

【解决方案1】：

我建议先使用宏将其重新格式化为可旋转的格式，然后应用数据透视表来获得所需的输出。

您希望此宏沿列向下运行，并对每个单元格应用以下第一条规则：

如果下一个值为“名称”，则将当前值存储为 Sector Name
如果当前值为“名称”，则不执行任何操作
如果当前值不是日期，则将其存储为Person Name
如果当前值是一个日期，那么在我们的表中添加一个新行 Sector Name、Person Name 和当前值为 Date

这将为每个日期放置一行，部门和人员名称在同一行中，然后您可以将其转换为数据透视表：

Sub MakePivotable(ByRef SourceColumn AS Range, ByRef Output As Range)
    Dim WorkCell As Range, OutRow As Range
    Dim Sector As String, Person As String
    Set Output = Output.Cells(1,1) 'We only want the top-left cell here
    Set SourceColumn = Intersect(SourceColumn, SourceColumn.Worksheet.UsedRange) 'Ignore unused rows

    Output.Value = "Sectors"
    Output.Offset(0,1).Value = "Name"
    Output.Offset(0,2)Value = "Date"
    OutRow = 1
    Sector = ""
    Person = ""
    For Each WorkCell In SourceColumn.Cells
        IF WorkCell.Offset(1,0).Value = "Name" Then 'Is Sector
            Sector = WorkCell.Value
        ElseIf WorkCell.Value = "Name" Then 'Do Nothing

        ElseIf Not IsDate(WorkCell.Value) Then ' Is Name
            Person = WorkCell.Value
        ElseIf 'Is Date
            'Create the row
            Output.Offset(OutRow,0).Value = Sector
            Output.Offset(OutRow,0).Value = Name
            Output.Offset(OutRow,0).Value = cDate(WorkCell.Value)
            OutRow = OutRow+1 'Move on to the next row
        End If
    Next WorkCell
End Sub

【讨论】：