请教高手转换问题

lima

多行转三行问题

lsdongjh

SQL 交叉表查询

lima

大师怎么做啊？

liulang0808

http://club.excelhome.net/thread-1385473-1-1.html
看看这个字典的帖子，有雷同案例的

xuemei0216

看一下，是不是你想要的

一把小刀闯天下

'假设A列有序，否则作有序处理或再加一个字典

'可以双向处理，，，

Option Explicit

Sub test1()
  Dim arr, dic, m, n, i
  Set dic = CreateObject("scripting.dictionary")
  arr = Range("a12:c" & [a12].End(xlDown).Row + 1)
  ReDim brr(UBound(arr, 1), 20)
  For i = 1 To UBound(arr, 1) - 1
    If Not dic.exists(arr(i, 2)) Then
      m = m + 1
      dic(arr(i, 2)) = m: brr(m, 0) = arr(i, 2)
    End If
    brr(dic(arr(i, 2)), n + 1) = arr(i, 3)
    If arr(i, 1) <> arr(i + 1, 1) Then
      n = n + 1: brr(0, n) = arr(i, 1)
    End If
  Next
  [q4].Resize(m + 1, n + 1) = brr
End Sub

Sub test2()
  Dim arr, i, j, m
  arr = Range("k3:o" & Cells(Rows.Count, "k").End(xlUp).Row)
  ReDim brr(1 To UBound(arr, 1) * UBound(arr, 2), 1 To 3)
  For j = 2 To UBound(arr, 2)
    For i = 3 To UBound(arr, 1)
      m = m + 1: brr(m, 1) = arr(1, j)
      brr(m, 2) = arr(i, 1): brr(m, 3) = arr(i, j)
    Next
  Next
  [e12].Resize(m, 3) = brr
End Sub

Lonzo丶

二维转一维，power query逆透视，一步到位。