Question

Excel 如何用VBA实现表数据格式转换

Answer 1

这个实现起来不难，主要是程序的控制，试试下面的代码：

Sub zz()
Dim ar, a(), b(), n&, t
a = Array(3, 7, 11): b = Array(6, 10, 15)
ar = Sheets(1).[a1].CurrentRegion.Value
ReDim c(1 To (UBound(ar) - 1) * (UBound(b) + 2), 1 To 1)
For i = 2 To UBound(ar)
    n = n + 1
    c(n, 1) = ar(i, 1) & " " & ar(i, 2)
    For j = 0 To UBound(a)
        n = n + 1
        For jj = a(j) To b(j)
            c(n, 1) = c(n, 1) & Trim(ar(1, jj)) & "=" & ar(i, jj) & ","
        Next
    Next
    t = Split(c(n, 1), ",")
    c(n, 1) = Join(Array(t(0), t(1), t(2), t(4), t(3)), ",")
Next
Workbooks.Add 1
[a1].Resize(n) = c
End Sub

Answer 2

将什么格式转为成什么格式，不说清楚没法回答