求教Excel60个工作表由6列改为3列方法

jobs_67

我有一个工作簿里面有60个的工作表，原来每个工作表是这样的

序号	姓  名	得分	序号	姓  名	得分
1	一	96	11	十一	96
2	二	97	12	十二	97
3	三	96	13	十三	93
4	四	97	14	十四	94
5	五	94	15	十五	90
6	六	95	16	十六	91
7	七	97	17	十七	89
8	八	93	18	十八	97
9	九	96	19	十九	95
10	十	94	20	二十	96

修改后是这样的

序号	姓  名	得分
1	一	96
2	二	97
3	三	96
4	四	97
5	五	94
6	六	95
7	七	97
8	八	93
9	九	96
10	十	94
11	十一	96
12	十二	97
13	十三	93
14	十四	94
15	十五	90
16	十六	91
17	十七	89
18	十八	97
19	十九	95
20	二十	96

姓名和得分单元格都有数据，怎么能快速把60个工作表一起修改？

lh123lh1234

把DEF列的数据拿过来ABC列是吧？
Sub test()
   Dim sht As Worksheet, arr, m%, n%
   For Each sht In Worksheets
      arr = Range("d2", [f65536].End(xlUp))
      m = UBound(arr)
      n = [a65536].End(xlUp).Row
      sht.Range("a" & n + 1 & ":c" & m + n) = arr
      sht.[d:f].ClearContents
   Next
End Sub

libo5563

pq里不逆透视也可以做

jobs_67

lh123lh1234 发表于 2019-9-9 11:56
把DEF列的数据拿过来ABC列是吧？
Sub test()
   Dim sht As Worksheet, arr, m%, n%

谢谢您！您的这个语句我使用时还需要修改吗？因为我真的是不懂，我用您的这个语句后，只有01工作表成功，其它工作都失败了，其它工作表DEF列都没数据了，也没移动到ABC列。

lh123lh1234

jobs_67 发表于 2019-9-9 14:40
谢谢您！您的这个语句我使用时还需要修改吗？因为我真的是不懂，我用您的这个语句后，只有01工作表成功， ...

方便的话，把你的数据附件发我，不然我只能以自己的举例子了

jobs_67

libo5563 发表于 2019-9-9 12:29
pq里不逆透视也可以做

谢谢您！您的这个方法在单独的工作表里操作成功，需要怎么操作才能把01至60个工作表一起修改？pq语句我是一点儿也不懂

libo5563

传5.-6个工作簿上来，修改一下就行了

jobs_67

lh123lh1234 发表于 2019-9-9 14:45
方便的话，把你的数据附件发我，不然我只能以自己的举例子了

刚才打不开论坛了，我把文件发给您，谢谢！

jobs_67

libo5563 发表于 2019-9-9 14:49
传5.-6个工作簿上来，修改一下就行了

我把文件上传到8楼了，谢谢您！

sishuiren

如果60个工作表人员都是你表中的62人，基本操作即可完成
选择工作表1，按SHIFT 选择最后一下工作表，达到全选工作表的目的，复制D2:F32,粘贴于是A33,设置一下格式，将D:F列删除，所有的工作表都达到要求