excel如何将10000*1列的数据每100行转置为1列?最后生成100x100的数据
1条回答 默认 最新
- threenewbee 2019-02-15 20:30关注
为了简化,我弄成10列,你自己搞100
For i = 1 To ActiveSheet.UsedRange.Rows.Count \ 10 Range("B" & i).Select ActiveCell.Value = Range("A" & i * 10 + 1).Value Range("C" & i).Select ActiveCell.Value = Range("A" & i * 10 + 2).Value Range("D" & i).Select ActiveCell.Value = Range("A" & i * 10 + 3).Value Range("E" & i).Select ActiveCell.Value = Range("A" & i * 10 + 4).Value Range("F" & i).Select ActiveCell.Value = Range("A" & i * 10 + 5).Value Range("G" & i).Select ActiveCell.Value = Range("A" & i * 10 + 6).Value Range("H" & i).Select ActiveCell.Value = Range("A" & i * 10 + 7).Value Range("I" & i).Select ActiveCell.Value = Range("A" & i * 10 + 8).Value Range("J" & i).Select ActiveCell.Value = Range("A" & i * 10 + 9).Value Range("K" & i).Select ActiveCell.Value = Range("A" & i * 10 + 10).Value Next
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 3无用
悬赏问题
- ¥15 求差集那个函数有问题,有无佬可以解决
- ¥15 【提问】基于Invest的水源涵养
- ¥20 微信网友居然可以通过vx号找到我绑的手机号
- ¥15 寻一个支付宝扫码远程授权登录的软件助手app
- ¥15 解riccati方程组
- ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
- ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
- ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
- ¥50 树莓派安卓APK系统签名
- ¥65 汇编语言除法溢出问题