问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501
你好,欢迎来到懂视!登录注册
当前位置: 首页 - 正文

如何用VBA实现这个功能:A列是明细,B列是数量,数量的用途是在该明细下...

发布网友 发布时间:2024-10-23 09:54

我来回答

2个回答

热心网友 时间:2024-12-11 20:59

有2点需要注意:

for i =1 to 100,其实默认的步长为1,也就是说 next i 和 i=i+1是同一个效果,你即写了i=i+1,又写了next,是不对的,这就相当于1,3,5,7这样的序列了

里面的 j 循环,应该是从1开始,而不是从0开始


改进后的代码如下:


Private Sub CommandButton1_Click()

    For n = 1 To 100

        If Range("A" & CStr(n)) <> "" Then

            For j = 1 To Range("B" & CStr(n))

                Range("A" & CStr(n) + 1).Select

                Selection.Insert Shift:=xlDown

                Range("B" & CStr(n) + 1).Select

                Selection.Insert Shift:=xlDown

            Next j

        End If

    Next n

End Sub

热心网友 时间:2024-12-11 21:00

你是要在原来的数据插入行完成还是放到其他列中?

Sub aa()
    Dim arr, brr()
    arr = Range("A2:B" & Range("A65536").End(xlUp).Row)
    For x = 1 To UBound(arr)
        i = i + arr(x, 2) + 1
        ReDim Preserve brr(1 To 2, 1 To i)
        brr(1, i - arr(x, 2)) = arr(x, 1)
        brr(2, i - arr(x, 2)) = arr(x, 2)
    Next x
    With Range("D2").Resize(UBound(brr, 2), 2) '如果在原区域得到结果,把此行的D2改为A2即可
        .Value = Application.Transpose(brr)
        .Borders.LineStyle = 1
    End With
End Sub
声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。
E-MAIL:11247931@qq.com
排名第一的鲤鱼颗粒 钓鱼饵料爆款第一名 深度体验一加Ace 2V 一加手机2V防水效果怎么样一加防水性能 老人说,冬吃萝卜夏吃姜,是什么原理? 御龙在天手游战力快速提升攻略 资源获取任务 御龙在天手游平民怎么玩 平民战力提升指南 【二手装载机选购】买二手铲车要注意什么 如何选择购买二手装载机 买新生儿教育金有哪些注意事项?买前必看! 在钉钉不小心删班群怎么办恢复 人这辈子玩什么都可以.千万不要玩人心 用VBA代码当M5:BL5中任意一个单元格不为空且小于100时弹出提示窗口VBA... ...输入数据自动计算库存,请问如何用VBA代码来实现? 求助:使用VBA实现以下功能 宣城东方雅苑售楼热线是多少? VBA_基本操作_自动填充(完整代码) vba 不用 IF 条件判断实现下面功能 ...我非常急啊 哪位好心人帮我解我谢他一辈子 天天保佑他 ...梨的4倍少2个。如果每次拿走6个苹果和2个梨, ...如果每位老人分5个苹果和2个梨,当梨分完时,还剩下42个苹果,有多少位... ...是梨的到4倍少两个如果每次吃掉五个苹果两个梨。当吃完还剩下四十... ...梨的4倍少2个,如果每次吃掉5个苹果和2个梨,当梨吃完时还剩40个苹果... 2024年6月22日可以安门吗 宜装大门吗 Excel07版本中关于合并表格的问题!急急 只有20分啦! ug实训心得体会(精编4篇) UG草图不学可以吗? 学UG需要什么要求? 学ug 之前是不是一定要学会autocad ug培训学校UG培训内容介绍 癌症基因的概述 二婚夫妻第一继承人是谁呢 Linux系统快速配置自启动linux配置自启动 河北省三河市怎么样 瑞虎5x车机怎样升级 三河市怎么样呢? 北京边上的三河市怎么样啊.具体介绍一下.去北京方便吗.还有最好能有... 三河市跑出租车怎么样 ...五个苹果两个梨。当吃完还剩下四十个苹果有少个 ...个数是梨的4倍,如果每位老人分5个苹果和2个梨,当梨分完时,还剩下4... 苹果的个数是梨的4倍,如果每人分5个苹果和2个梨,当苹果分完时,还剩下... 有没有系带式内衣内裤 金坝街道基本概况 济源新型电动葫芦厂家报价 Electric chain hoist简介 河北邢台桥西电动葫芦,哪个品牌好 宣城市敬亭客生物科技有限公司怎么样? 我在网上订了高铁票,但是来不急座就在火车站退掉,为什么只给我... ...啮合线长的计算(如何确定标准齿轮齿顶圆及齿根圆);谢谢各位高手了... 而况的词语而况的词语是什么 我的家人是一名农村扶贫专岗清洁工,每月工资700元,高温天气上岗,可不...
  • 焦点

热门图文

猜你喜欢