VBA Excel - 基于两列的排列

Question

我正在 VBA 中寻找一种方法来实现基于两列的排列。我试过 Ubound 但失败了为大文件编写高效代码的更好方法是什么？

默认的DATA是这样的

以及我正在寻找的最终结果：

Answer 1

一个简单的部分逆轴

执行此操作的主要非 VBA 工具是 PowerQuery（以前的 Get & Transform）。

Option Explicit

Sub UnPivot()
    
    Dim ws As Worksheet: Set ws = ActiveSheet
    Dim srg As Range: Set srg = ws.Range("A1").CurrentRegion
    Dim rCount As Long: rCount = srg.Rows.Count
    If rCount < 2 Then Exit Sub
    
    Dim Data As Variant: Data = srg.Value
    
    Dim r As Long
    Dim c As Long
    For r = 2 To rCount
        For c = 4 To 2 Step -1
            Data(r, c) = Data(r, c - 1)
        Next c
        Data(r, 1) = Data(1, 3)
    Next r
    
    Data(1, 1) = "DATE"
    Data(1, 2) = "TITLE"
    Data(1, 3) = "KPI"
    Data(1, 4) = "VALUE"
    
    Dim drg As Range: Set drg = srg.Offset(, srg.Columns.Count + 1)
    drg.Value = Data
    
End Sub

VBA Excel - 基于两列的排列

VBA Excel - Permutations based from two columns

excel

vba

permutation

unpivot

一个简单的部分逆轴