一条数据，横向占三格；5000多条在excel里占三列；现在希望把数据变成竖排，横向排8条，然后换行，如何操

答案:6 悬赏:0 手机版

解决时间 2021-03-16 21:36

提问者网友：世勋超人
2021-03-16 10:35

最佳答案

五星知识达人网友：患得患失的劫
2021-03-16 11:46

在一张空表中添加一个按钮，双击进入宏编辑器，删除一切文本后粘贴以下文本：
Private Sub CommandButton1_Click()
han = 1
Do While Sheets(1).Cells(han, 1) <> ""

For lie = 1 To 3
han1 = han1 + 1
lie1 = 1
Do While lie1 < 9

Sheets(1).Cells(han1, lie1 + 3) = Sheets(1).Cells(han, lie)
han = han + 1
lie1 = lie1 + 1
Loop
han = han - 8
Next lie
han = han + 8
'Stop

Loop
End Sub
退出设计模式，双击按钮，一切ok。

全部回答

1楼网友：独钓一江月
2021-03-16 13:56

写个宏试一下吧。

2楼网友：woshuo
2021-03-16 13:50

复制——选择性粘贴——转置

3楼网友：独钓一江月
2021-03-16 13:22

2楼的我还真没试过，看看可行吗
我曾经遇到过几百个的，挨着又输了一遍

4楼网友：孤独的牧羊人
2021-03-16 12:52

写宏。。。你这个条件很简单。写宏也就花两分钟时间，5000多条数据我估计三四秒钟就完成了吧。。。

5楼网友：西风乍起
2021-03-16 12:00

A1=INDIRECT(ADDRESS((INT((ROW(A1)-1)/6)+1)*3+COLUMN(A1)-3,MOD(ROW(A1)-1,6)+4,4))
公式右拉三列，再下拉。
不知道你后面还有没有数据，根据你提供的数据做的。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息