运行下面的宏就可以 Sub kk() For i = 2 To 256 Cells(1, i).Value = Cells(5 * i - 9, 1).Value Cells(2, i).Value = Cells(5 * i - 8, 1).Value Cells(3, i).Value = Cells(5 * i - 7, 1).Value Cells(4, i).Value = Cells(5 * i - 6, 1).Value Cells(5, i).Value = Cells(5 * i - 5, 1).Value Next End Sub