求大神们区域转置问题。

qcjonline

求各位大神们帮忙。谢谢。

世界客都

透视表加公式的辅助用法 区域转置.zip (279.51 KB, 下载次数: 7)

2024-1-18 10:31 上传

点击文件名下载附件

世界客都

到时候姓名拉到左边然后自定义排序一下就好了
这个问题用公式可以一步到位，但是公式需要拉来拉去，比较麻烦。

wdy895

用PQ逆透视。

39354142

Sub zhuanzhi()
Dim a, b
Dim i, j, x
a = Sheet1.[a65535].End(xlUp).Row

b = 2
x = 3
For i = 2 To a
    For j = b To b + 4
            Sheet2.Cells(j, 1) = Sheet1.Cells(i, 1)
            Sheet2.Cells(j, 2) = Sheet1.Cells(i, 2)
            
            Sheet2.Cells(j, 3) = Sheet1.Cells(1, x)
           
            Sheet2.Cells(j, 4) = Sheet1.Cells(i, x)
             x = x + 1
      Next
      x = 3
    b = b + 5
   
Next

End Sub

鹊鸣竹下

F2 编号 =INDEX(区域转换问题!A:A,INT((ROW()+3)/5)+1,1)
G2 姓名 =INDEX(区域转换问题!B:B,INT((ROW()+3)/5)+1,1)
H2 学科 =INDEX(区域转换问题!$C$1:$G$1,1,MOD((ROW()+3),5)+1)
I2  成绩 =INDEX(区域转换问题!$C:$G,INT((ROW()+3)/5)+1,MOD((ROW()+3),5)+1)

huanghai22

表示参与一下

鹊鸣竹下

huanghai22 发表于 2024-1-18 17:16
表示参与一下

大神这个录屏转gif动画功能太厉害了。请问是怎么实现的呢？

huanghai22

鹊鸣竹下 发表于 2024-1-19 14:02
大神这个录屏转gif动画功能太厉害了。请问是怎么实现的呢？

用的是ScreenToGif

鹊鸣竹下

huanghai22 发表于 2024-1-19 15:59
用的是ScreenToGif

谢谢啦，我在贴吧置顶也找到了个工具ggg 。