基于Excel中列中的值添加新行

我有一个包含数千行的Excel表格，如下所示：

|---------------------|------------------|------------------|------------------|
|      COUNTRY        |       DATE       |      ITEM 1      |     ITEM 2       |
|---------------------|------------------|------------------|------------------|
|       Ireland       |     Jan-1        |       40         |       56         |    
|---------------------|------------------|------------------|------------------|

我需要使它看起来像以下内容：

|---------------------|------------------|------------------|------------------|
|      COUNTRY        |       DATE       |      COUNT       |       ITEM       |
|---------------------|------------------|------------------|------------------|
|       Ireland       |     Jan-1        |       40         |      ITEM 1      |    
|---------------------|------------------|------------------|------------------|
|       Ireland       |     Jan-1        |       56         |      ITEM 2      |    
|---------------------|------------------|------------------|------------------|

你能告诉我怎么做吗？我对非VBA和VBA解决方案都持开放态度

---

谢谢。

Powerquery加载项2013，数据选项卡>获取和转换Excel 2016

通过双击标题，选择范围中的单元格>数据选项卡（或powerquery选项卡）>表中的数据>选择列项目1和项目2>右键单击>取消Pivot>将属性列重命名为项目，将值重命名为计数。根据拖放要求重新排列列。“常用”选项卡>关闭并加载到新图纸

M代码：

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"COUNTRY        ", type text}, {"       DATE       ", type date}, {"      ITEM 1      ", Int64.Type}, {"     ITEM 2       ", Int64.Type}}),
    #"Unpivoted Columns" = Table.UnpivotOtherColumns(#"Changed Type", {"COUNTRY        ", "       DATE       "}, "Attribute", "Value"),
    #"Renamed Columns" = Table.RenameColumns(#"Unpivoted Columns",{{"Value", "Count"}, {"Attribute", "Item"}}),
    #"Reordered Columns" = Table.ReorderColumns(#"Renamed Columns",{"COUNTRY        ", "       DATE       ", "Count", "Item"})
in
    #"Reordered Columns"

结果:

---

您想过透视表吗？您能建议如何制作透视表吗？我试过了，但没有得到想要的结果。