表格数据的转置重复粘贴到模板表中

颖明

需要将原数据的 表头 任务名称重复 显示为 模板表中的列。将数据竖向呈现。行数和列数只是截取的部分。如何实现呢?请各位大神帮忙解决

ykcbf1100

数据都填入模板表吗？还是拆分成多表？

ykcbf1100

猜一个吧。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.8.14
   
2.     With Sheets("原数据")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         c = .Cells(1, "XFD").End(1).Column
   
5.         arr = .[a1].Resize(r, c)
   
6.     End With
   
7.     ReDim brr(1 To 10000, 1 To 5)
   
8.     For j = 4 To UBound(arr, 2)
   
9.         For i = 2 To UBound(arr)
   
10.             m = m + 1
    
11.             brr(m, 1) = arr(1, j)
    
12.             For x = 1 To 4
    
13.                 brr(m, x + 1) = arr(i, x)
    
14.             Next
    
15.         Next
    
16.     Next
    
17.     With Sheets("模板")
    
18.         .UsedRange.Offset(1).ClearContents
    
19.         .[a2].Resize(m, 5) = brr
    
20.         .[a2].Resize(m, 5).Borders.LineStyle = 1
    
21.     End With
    
22.     MsgBox "OK！"
    
23. End Sub
    

复制代码

longwin

附件供参考。。。

颖明

ykcbf1100 发表于 2024-8-14 15:11
猜一个吧。。。

谢谢大佬，这就是我想要的结果

颖明

longwin 发表于 2024-8-14 15:26
附件供参考。。。

谢谢你的帮忙

颖明

ykcbf1100 发表于 2024-8-14 15:12
参与一下。。。

哥如果第一列的数据是0，那么后续转换出来的也好像都是零，这个有办法解决吗？