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