求助大神帮忙，二维表转成一维表，感谢

3822

按照数据源里不同的部门，不同的科目，分12个月，得到23年预算金额，23年预测金额

cjc209

找出规律 写循环就了事

nightsun620

Power Query里逆透视一下

3822

cjc209 发表于 2023-2-28 16:05
找出规律 写循环就了事

就是不会写哈，大神 帮忙写下啊

cjc209

你的实际表难道就是每个科目下就只有两个部门? 或者 每个科目下的部门数相同不? 多一点数据

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1653703&fromguid=hot&extra=&mobile&_dsign=c058585ehttps://club.excelhome.net/forum.php?mod=viewthread&tid=1653703&fromguid=hot&extra=&mobile&_dsign=c058585e

3822

cjc209 发表于 2023-2-28 16:24
你的实际表难道就是每个科目下就只有两个部门? 或者 每个科目下的部门数相同不? 多一点数据

部门都是相同的

3822

cjc209 发表于 2023-2-28 16:24
你的实际表难道就是每个科目下就只有两个部门? 或者 每个科目下的部门数相同不? 多一点数据

部门是数量是相同的哦

cjc209

Sub 测试()
    ReDim 结果数组(1 To 399999, 1 To 5)
    For i = 3 To Sheet1.Range("b" & Rows.Count).End(xlUp).Row
        If Sheet1.Cells(i, 1).Value <> "" Then
            科目 = Cells(i, 2)
        Else
            For j = 15 To 26
                k = k + 1
                月份 = Sheet1.Cells(2, j)
                部门 = Sheet1.Cells(i, 2)
                预算金额2023 = Sheet1.Cells(i, j)
                预测金额2023 = Sheet1.Cells(i, j + 13)
                结果数组(k, 1) = 月份
                结果数组(k, 2) = 部门
                结果数组(k, 3) = 科目
                结果数组(k, 4) = 预算金额2023
                结果数组(k, 5) = 预测金额2023
            Next
        End If
    Next
    Sheet2.[a2].Resize(k, 5) = 结果数组
End Sub

cjc209

搞定  针对你的表的情况  思路就是这样的