把多行的生产排班表 转置成1列的表格

lucy_0579

本人在努力学习VB中，但是现在碰到的问题好复杂啊，对于高手来说应该简单的。求路过的朋友帮帮忙哦！
需要将sheet1里面的表格转置到sheet2,删除多余的表头，增加4列，里面对应sheet1中的几个内容。我用宏录制了一遍，过程有点长，一时无法看懂，但是急用啊，大侠们帮帮忙哦

yeminqiang

1. Sub cdsr()
   
2.     Dim arr, brr(1 To 50000, 1 To 7)
   
3.     lastrow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
   
4.     arr = Sheet2.Range("a1:h" & lastrow)
   
5.     For i = 4 To UBound(arr) Step 3
   
6.         For j = 2 To 8
   
7.             k = k + 1
   
8.             brr(k, 1) = arr(2, 2)
   
9.             brr(k, 2) = arr(1, 4)
   
10.             brr(k, 3) = arr(2, 6)
    
11.             brr(k, 4) = arr(2, 5)
    
12.             brr(k, 5) = arr(i, j)
    
13.             brr(k, 6) = arr(i + 1, j)
    
14.             brr(k, 7) = arr(i + 2, j)
    
15.         Next
    
16.     Next
    
17.     Sheet1.[i2:o50000] = ""
    
18.     Sheet1.[i2].Resize(k, 7) = brr
    
19. End Sub
    

复制代码

yeminqiang

表格转置.zip (23.79 KB, 下载次数: 24)

2016-9-19 15:41 上传

点击文件名下载附件

有些自定义格式的问题，最好自己弄好数据。数据搞不好，啥都没用。

1全职

这么简单的东西还用VBA 吗 太夸张了吧

复制 A4:H21 选择性粘贴 转置
比如转置到
I1:Z8
然后I9单元格输入= L2 横拉到 K9 然后往下拉到43行 复制粘贴值，把多余的删除
其余四列下面都相同，写个标题，下面内容写一个复制到底就好

lucy_0579

1全职 发表于 2016-9-20 08:33
这么简单的东西还用VBA 吗 太夸张了吧

复制 A4:H21 选择性粘贴 转置

是啊做一张是很简单的，但是每天有8份，都是重复的而且需要在最短的时间内做出来，用VBA最快啦

1全职

lucy_0579 发表于 2016-9-20 10:24
是啊做一张是很简单的，但是每天有8份，都是重复的而且需要在最短的时间内做出来，用VBA最快啦

这样做一张不到2分钟时间，8张15分钟之内也做出来了，
那就用录制宏，做一个不到2秒钟 够快了吧
上面有个小错误 不是横拉到K9 是横拉到尾部

wawj0503

1全职 发表于 2016-9-20 16:41
这样做一张不到2分钟时间，8张15分钟之内也做出来了，
那就用录制宏，做一个不到2秒钟 够快了吧
上面有 ...

一张录制宏,简单快捷