如何用宏 批量将EXCEL竖排变成横排
发布网友
发布时间：2022-04-22 09:49
共2个回答
热心网友
时间：2023-10-31 01:59
用公式要用数组公式
用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
热心网友
时间：2023-10-31 01:59
这时，罗老师笑眯眯地对我们说：同学们，请大家都来猜一猜这里面装的会是什么呢？同学们都七嘴八舌，议论纷纷，有的说是钢笔，有的说是书本，还有的说是玩具。我们一个个都想早点见到是什么礼物，可罗老师却偏偏要我们先闭上眼睛。我心想：呵呵，难不成这礼物还害羞哩！我巴不得早点儿见到礼物。于是，我把右眼闭上，左眼微微睁开，想偷偷来过先睹为快，却没见老师拿出什么礼物。正当我疑惑不解时，只听到罗老师说：大家可以把眼睛睁开欣赏礼物了。哇！原来这里面装的礼物是又大又圆的大西瓜。
此时此刻教室里的每一位同学脸上都显得又惊又喜，叹气声，议论声，响成一片。霎时，我赶紧把那圆圆的西瓜上下打量了一番，只见它身穿绿里带黑的衣服，头上还戴着一顶小小的帽子，像一个圆溜溜的皮球一样。
