zoukankan      html  css  js  c++  java
  • VBA中的for循环,根据输入的数字向下自动填充单元格,其他列跟随向下自动填充第一行

    for 循环:

    for counter = start To end step step       for  开始的条件不如a = 1   to   结束的条件   10   step  循环的步长  2  1到10每次跳连个数

      expression                                               循环的表达式内容

    next  variable                                         next 返回循环的变量  如  a

    自动填充例子

    Sub 根据钻杆样数向下自动填充()

    r = Selection.Row()   '自动获取选择单元格的行号
    l = Selection.Column()    '自动获取选择单元的列号
    For i = 1 To Selection.Value  '从1开始循环到选择单元内的值  比如输入了10  这里就会循环10次
    Cells(r - 1 + i, l) = i
    '复制其他行数据
    Cells(a - 1 + i, “B”) = Cells(a, “B”) '第一格数据    复制B列的和选择单元格同行的数据向下根据选择段元格内的内容自动填充复制
    Cells(a - 1 + i, "E") = Cells(a, "E") '第E列一格数据
    Cells(a - 1 + i, "J") = Cells(a, "J") '第J列一格数据
    Cells(a - 1 + i, "K") = Cells(a, "K") '第K列一格数据
    Cells(a - 1 + i, "M") = Cells(a, "M") '第M列一格数据
    Cells(a - 1 + i, "N") = Cells(a, "N") '第N列一格数据
    Cells(a - 1 + i, "O") = Cells(a, "O") '第O列一格数据
    Cells(a - 1 + i, "P") = Cells(a, "P") '第P列一格数据
    Cells(a - 1 + i, "Q") = Cells(a, "Q") '第Q列一格数据
    Cells(a - 1 + i, "R") = Cells(a, "R") '第R列一格数据
    Cells(a - 1 + i, "S") = Cells(a, "S") '第S列一格数据
    Cells(a - 1 + i, "U") = Cells(a, "U") '第U列一格数据

    Next i

    End Sub

  • 相关阅读:
    cocos2d-x ios 设置横屏/竖屏(全)
    决策树之ID3算法实现(python)
    基于Spring开发的DUBBO服务接口测试
    Mac电脑下配置maven环境变量
    Mac Eclipse+Maven+TestNg+ReportNg 生成测试报告
    TestNG+Maven+IDEA环境搭建
    115个Java面试题和答案——终极列表(上)
    115个Java面试题和答案——终极列表(下)
    阿里巴巴常考面试题及汇总答案
    阿里面试回来,想和Java程序员谈一谈
  • 原文地址:https://www.cnblogs.com/jier771/p/13895519.html
Copyright © 2011-2022 走看看