excel表格统计数量里如何生成对应数量的行

来源：蜘蛛抓取(WebSpider) 时间：2018-06-06 17:18 标签： excel表格统计数量
查看: 637|回复: 3
根据单元格值自动生成对应数量行的单元格
阅读权限20
在线时间 小时
& & & & & & & &
本帖最后由 高家三少 于
16:59 编辑
品名规格数量品名规格数量苹果iPhone53苹果iPhone53小米MI312苹果iPhone53魅族MX46苹果iPhone53华为M81小米MI312魅族MX46魅族MX46魅族MX46魅族MX46魅族MX46魅族MX46华为M81根据数量里的值自动填充生成对应数量的单元格，如果为1或则大于10则不用
用公式搞不定，请VBA高手指点！
16:59 上传
点击文件名下载附件
7.75 KB, 下载次数: 3
阅读权限95
在线时间 小时
& & For i = 2 To [a65536].End(3).Row
& && &&&s = Cells(i, 1).Resize(1, 3)
& && &&&If Cells(i, 3) & 10 Then
& && && && &Cells(2 + n, &G&).Resize(Cells(i, 3), 3) = s
& && && && &n = n + Cells(i, 3)
& && &&&Else
& && && && &Cells(2 + n, &G&).Resize(1, 3) = s
& && && && &n = n + 1
& && &&&End If
阅读权限95
在线时间 小时
&&&&&&&&&&&&&&&&&&&&&&&
(14.22 KB, 下载次数: 15)
18:24 上传
点击文件名下载附件
阅读权限20
在线时间 小时
&&&&&&&&&&&&&&&&&&&&&&&
感谢大神！！测试ok！！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师拒绝访问 | www.excelpx.com | 百度云加速
请打开cookies.
此网站 (www.excelpx.com) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(426c8a-ua98).
重新安装浏览器，或使用别的浏览器excel表格中如何批量插入对应数量的行_百度知道
excel表格中如何批量插入对应数量的行
第一排插入二行，根据表格右边数量的要求，批量一次性插入我所需要的行数，哪位高手会啊？
我有更好的答案
Sub&插入空行()&&&&Dim&hMax&As&Long,&i&As&Long&&&&hMax&=&Range(&E&&&&Range(&E:E&).Rows.Count).End(xlUp).Row&&&&i&=&hMax&&&&Do&Until&i&&&2&&&&&&&&If&Range(&E&&&&i).Value&&&1&Then&&&&&&&&&&&&Rows(i&+&1&&&&:&&&&i&+&Range(&E&&&&i).Value&-&1).Insert&Shift:=xlDown,&CopyOrigin:=xlFormatFromLeftOrAbove&&&&&&&&End&If&&&&&&&&i&=&i&-&1&&&&LoopEnd&Sub代码中假设 &行数要求位于E列。
采纳率：74%
来自团队：
可以呀。用VBA代码噢。只是你的数字所在的列号是必须固定的。
代码你会吗？
我不会。。。在宏里试了一下，只能每个插入一行，不会弄。
Sub&插入空行()&Dim&i&As&Long,&j&As&Long,&k&As&Long&k&=&4&'数据在D列&i&=&Cells(Rows.Count,&k).End(xlUp).Row&-&1'最后一行不处理，故减一。&j&=&0&Do&Until&i&&&2&&If&Cells(i,&k).Value&=&&&&Then&&&j&=&j&+&1'计数空行数目&&Else&&&If&Cells(i,&k).Value&-&1&-&j&&&0&Then&&&&Rows(i&+&1&&&&:&&&&i&+&Cells(i,&k).Value&-&j&-&1).Insert&Shift:=xlDown,&CopyOrigin:=xlFormatFromLeftOrAbove'插入需要的空行&&&End&If&&&If&Cells(i,&k).Value&-&1&-&j&&&0&Then&&&&Rows(i&+&1&&&&:&&&&i&-&Cells(i,&k).Value&+&j&+&1).Delete'空行太多删除&&&End&If&&&j&=&0&&End&If&&i&=&i&-&1&LoopEnd&Sub
本回答被提问者采纳
如果你插入行数要求数据位于D列Sub&ins()Dim&i%i&=&1Do&Until&Cells(i,&4)&=&&&&&&&Rows(i&+&1&&&&:&&&&Cells(i,&4)&+&i&-&1).Insert&&&&i&=&i&+&Cells(i,&4)LoopEnd&Sub&需要说明的是，该程序在完全没有空行时，会准确按你的要求执行，但如果已有空行，可能会不对。
为您推荐：
其他类似问题
您可能关注的内容
excel表格的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。如何在EXCEL 中实现按表格中的数值插入相应数量的行，并且复制该行内容？_百度知道
如何在EXCEL 中实现按表格中的数值插入相应数量的行，并且复制该行内容？
将左边数据生成右边状态
我有更好的答案
C1输入0，C2=SUM(B$2:B2)+1向下复制E2=IF(ROW(A1)&$C$5,LOOKUP(ROW(A1),$C$1:$C$4,$A$2:$A$5),&&)向下复制F2=IF(E2=&&,&&,VLOOKUP(E2,$A$2:$B$5,2,0))向下复制
真心求教，这个公式是只能做4组数据吗？如果有更多的要怎么改呀
采纳率：80%
来自团队：
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。在Excel表格中每行数据下面插入一行的两种方法_Office办公助手
分享高质量的原创Office教程、Word教程、Excel教程、PPT教程。
在Excel表格中每行数据下面插入一行的两种方法
发布时间：　来源：Office办公助手(www.officezhushou.com)
在工作中也许会遇到这样的问题，比如做好了10条数据，但是根据情况要求，还得在每一条数据下面插入一个新行。如果数据少的话，手动慢慢加就行了，但如果数据很多很多怎么办?本文就讲述了在Excel表格中每行数据下面插入一行的两种方法。
根据定位(快捷键F5)，给空值插入行。
方法二：根据序号排序的方法。
更多相关阅读
上一篇： 下一篇：
本文讲述了Excel表格中新插入行后如何在数据的最底部动态求和的方法。
在使用Excel表格进行数据处理时，插入行或列是常见的操作，本文以同时
本文图文详解Excel中如何批量插入多行的方法。
专题教程推荐
(window.slotbydup=window.slotbydup || []).push({
id: '3577897',
container: s,
size: '300,450',
display: 'inlay-fix'
热门资源下载

我要回帖

更多关于 excel表格统计数量 的文章

 

随机推荐