（求助）怎么实现自动将excel中的数据转化为固定格式生产新的excel文件

xnepmc

    各位大神，求帮忙，现有一个固定格式的excel文件，要将数据表格按照新的固定格式转化成新的excel文件，自己研究了半天搞不定，跨行太难了，求各位大神帮忙。
旧的文件和新的文件格式见附件。

xnepmc

求大神帮忙，有时候数据太多，一个个去按新格式编工作量太大了

约定的童话

变成两列行不？你这是要打印吗？

xnepmc

约定的童话 发表于 2019-9-3 13:44
变成两列行不？你这是要打印吗？

变成2行列式为了打印的，您那个按钮1点一下就好了，怎么弄的，求指教

约定的童话

xnepmc 发表于 2019-9-3 16:03
变成2行列式为了打印的，您那个按钮1点一下就好了，怎么弄的，求指教

Sub test()
    Dim i, n, arr, brr(1 To 1000, 1 To 2)
    arr = [a1].CurrentRegion
    For i = 2 To UBound(arr)
        For k = 1 To 6
            m = m + 1
            brr(m, 1) = arr(1, k)
            brr(m, 2) = arr(i, k)
        Next
    Next
    [h1].Resize(UBound(brr), 2) = brr
End Sub
代码给你，如果还搞不定加我QQ1975382969

xnepmc

约定的童话 发表于 2019-9-3 16:05
Sub test()
    Dim i, n, arr, brr(1 To 1000, 1 To 2)
    arr = [a1].CurrentRegion

好的，我试一下，太感谢您了