jangell的海角 2019-02-15 18:29 采纳率: 100%
浏览 987
已采纳

excel如何将10000*1列的数据每100行转置为1列?

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
    

    图片说明

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

悬赏问题

  • ¥15 求差集那个函数有问题,有无佬可以解决
  • ¥15 【提问】基于Invest的水源涵养
  • ¥20 微信网友居然可以通过vx号找到我绑的手机号
  • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
  • ¥15 解riccati方程组
  • ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
  • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
  • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
  • ¥50 树莓派安卓APK系统签名
  • ¥65 汇编语言除法溢出问题