Question

EXCEL表格如何改变格式?

现有格式如下：
a1 a2 b1 b2 c1 c2
d1 d2 e1 e2 f1 f2
g1 g2 h1 h2 i1 i2
……
需要变为：
a1 a2 b1 b2 c1 c2 d1 d2
e1 e2 f1 f2 g1 g2 h1 h2
……
如何实现？多谢

Answer 1

假设原表在SHEET1
则SHEET2的A1中输入以下公式：
=INDEX(SHEET1!$A$1:$F$100, INT((ROW()*8+COLUMN()-8)/6)+1, MOD(((ROW()*8+COLUMN()-8), 6))
向右复制填充到H1
然后再将A1:H1向下复制填充

Answer 2

假设源数据在sheet1,改变格式后的数据在sheet2,可以利用以下VBA代码实现:
Sub mysub()
Dim rowCount As Integer
Dim numCount As Integer
rowCount = 1
For Each cell In UsedRange
numCount = numCount + 1
Worksheets("Sheet2").Cells(rowCount, numCount) = cell.Value
If numCount = 8 Then
numCount = 0
rowCount = rowCount + 1
End If

Next
End Sub

代码粘贴在sheet1的代码窗口中