永发信息网

excel 如何按指定的数量复制

答案:2  悬赏:20  手机版
解决时间 2021-03-20 19:39
数据列A-H,
A1 B1 C1 D1 E1 F1 G1 H1
一 二 三 四 五 六 七 3
十一 十二 十三 十四 十五 十六 十七 2
需要A-G的行数按照H的数量生成,比如上面2行处理过后就是:
A1 B1 C1 D1 E1 F1 G1
一 二 三 四 五 六 七
一 二 三 四 五 六 七
一 二 三 四 五 六 七
十一 十二 十三 十四 十五 十六 十七
十一 十二 十三 十四 十五 十六 十七
数据很多,不能手工处理,本人完全不懂编程,望高人详细指导。
最佳答案
假设你的数据在SHEET1表中。按ALT+F11打开VBA窗口,双击左边的SHEET1,粘贴下面的代码,按F5运行。完成后删除H列即可。Q573610102
Sub InsertRow()
n = 0
For i = 2 To 10 '默认只从2-10行,你可以修改为更大数
m = Cells(i + n, 8)
If m - 1 > 0 Then
For j = 1 To m - 1
Cells(i + n + j, 1).Select
Selection.EntireRow.Insert
Rows(i + n + j - 1).Select
Selection.Copy
Rows(i + n + j).Select
ActiveSheet.Paste
Next j
End If
n = n + m - 1
Next i
End Sub
全部回答
跟设置没有关系,我怀疑与你的键盘相关,因为ctrl和shift两个键相邻,是不是存在当按下ctrl键时shift键被接通了。假如你用ctrl键多次选取时出现的不是连续区域而是断续区域时,试着用鼠标右键“插入复制单元格”试试看。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
想取一个四字的男生网名,里面包括“司”和“
新手机号码如何使用旧手机号码注册的微信号
金牛座的女生温柔吗
东方爱婴早教中心的意义在哪里?
房地产中一房二房三房是指什么?
英语想考级可以自学吗
小猫尿床怎么办
到现在还没结婚,心里非常非常忧虑非常非常焦
笔记本电脑发现网络硬件配置存在问题无连接是
我知道你说的是什么意思,一切随缘吧 用日
女生回答,我是男生。每次我在你面前害羞,你
求《小王子》中,与狐狸的对话,要英文版本
福仁街地址在什么地方,想过去办事
山东理工大学真的差吗
求方程y"+2y'+2y=xe^-x满足初始条件x=0
推荐资讯
编一个数学问题(90-36)÷6
以周公为人,尚诛管,蔡,我诚不及周公远矣 这句
我要学吉他十天要会弹一首歌能行吗?
魔兽世界6.2有哪些地方可以触发800水晶的日常
瑞讯金融运作有限公司
大专生毕业证上都学历都写专科吗?不写大专的
落实儒释道三根可不可以配合无量寿经 净空法
我想在锁屏壁纸上写上于佳雯三个字,怎么弄,
说话:谈谈你对中学生追星现象的看法?
意博门窗的铝合金门窗怎么样?
为什么我的HTCone802d电信版总是显示数据连接
他们在广场上摆放了一些长桌子用于签名,每张
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?