excel中怎么批量将竖向排列的多个表格变成横向排列（不是转置！！！）？

Question

怎么批量将第一张图片中竖向排列的多个表格，变成第二张图片中的横向排列。不是复制再转置！！！！那不是图2的效果。

Answer 1

用公式要用数组公式
用VBA
假设第1图为 sheet1 ，第2图，复制VBA，运行即可
Sub AA()
Dim I
For I = 1 To Sheets(1).Range("A65536").End(xlUp).Row Step 10
X = Cells(1, 256).End(xlToLeft).Column
arr = Sheets(1).Range(Sheets(1).Cells(I, "a"), Sheets(1).Cells(I + 9, "F"))
Cells(1, X + 1).Resize(10, 6) = arr
Next
End Sub追问

感谢回答，程序能运行，但是结果不对。结果是这样：

追答

你A列有合并单元格？
Sub AA()
Dim I
For I = 1 To Sheets(1).Range("A65536").End(xlUp).Row Step 10
X = Cells(1, 256).End(xlToLeft).Column
arr = Sheets(1).Range(Sheets(1).Cells(I, "a"), Sheets(1).Cells(I + 9, "F"))
Cells(1, X + 1 + 5).Resize(10, 6) = arr
Next
Columns("A:F").Delete
End Sub
或
Sub AA()
Dim I
For I = 1 To Sheets(1).Range("A65536").End(xlUp).Row Step 10
X = Cells(1, 256).End(xlToLeft).Column
Sheets(1).Range(Sheets(1).Cells(I, "a"), Sheets(1).Cells(I + 9, "F")).Copy Cells(1, X + 1 + 5) 'arr = Sheets(1).Range(Sheets(1).Cells(I, "a"), Sheets(1).Cells(I + 9, "F"))
'Cells(1, X + 1 + 5).Resize(10, 6) = arr
Next
Columns("A:F").Delete
End Sub

追问

是，第一列有合并单元格。这个程序可以实现了，非常感谢！！可以帮忙注释一下主要代码的意思吗？我的表格还有很多是这样的，也想用这种方法。但是不太懂代码的意思。谢谢了！

追答

发个私信，这里容易被 屏蔽

本回答被提问者采纳

Answer 2

这时，罗老师笑眯眯地对我们说：同学们，请大家都来猜一猜这里面装的会是什么呢？同学们都七嘴八舌，议论纷纷，有的说是钢笔，有的说是书本，还有的说是玩具。我们一个个都想早点见到是什么礼物，可罗老师却偏偏要我们先闭上眼睛。我心想：呵呵，难不成这礼物还害羞哩！我巴不得早点儿见到礼物。于是，我把右眼闭上，左眼微微睁开，想偷偷来过先睹为快，却没见老师拿出什么礼物。正当我疑惑不解时，只听到罗老师说：大家可以把眼睛睁开欣赏礼物了。哇！原来这里面装的礼物是又大又圆的大西瓜。
此时此刻教室里的每一位同学脸上都显得又惊又喜，叹气声，议论声，响成一片。霎时，我赶紧把那圆圆的西瓜上下打量了一番，只见它身穿绿里带黑的衣服，头上还戴着一顶小小的帽子，像一个圆溜溜的皮球一样。