求excel高手帮忙。。。

2024年12月04日 23:18

有4个网友回答

网友（1）：

假如你的原始数据是在sheet1的A、B列且从A1、B1开始，用下面的宏去转，将在sheet2中得到你想要的结果，请根据实际情况修改相关参数。
Sub 转置()
a = Sheet1.[a1].Resize(5, 2)
Sheet2.[a1].Resize(2, 5) = Application.WorksheetFunction.Transpose(a)
n = Sheet1.[a65535].End(xlUp).Row
m = 3
For i = 6 To n Step 5
a = Sheet1.Cells(i, 2).Resize(5, 1)
b = Application.WorksheetFunction.Transpose(a)
Sheet2.Cells(m, 1).Resize(1, 5) = b
m = m + 1
Next i
End Sub

网友（2）：

这个好办嘛，建个新表。
用筛选，从第一列筛选可得出题名、作者。。。。等列的值，复制到新表相应的列就行了嘛。

网友（3）：

qq多少?

网友（4）：

QQ没留吧？