求excel高手帮忙。。。

2024-12-04 23:18:40

推荐回答（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没留吧？