数据列A-H,
A1 B1 C1 D1 E1 F1 G1 H1
一 二 三 四 五 六 七 3
十一 十二 十三 十四 十五 十六 十七 2
需要A-G的行数按照H的数量生成,比如上面2行处理过后就是:
A1 B1 C1 D1 E1 F1 G1
一 二 三 四 五 六 七
一 二 三 四 五 六 七
一 二 三 四 五 六 七
十一 十二 十三 十四 十五 十六 十七
十一 十二 十三 十四 十五 十六 十七
数据很多,不能手工处理,本人完全不懂编程,望高人详细指导。
excel 如何按指定的数量复制
答案:2 悬赏:20 手机版
解决时间 2021-03-20 19:39
- 提问者网友:椧運幽默
- 2021-03-20 12:50
最佳答案
- 五星知识达人网友:拜訪者
- 2021-03-20 13:58
假设你的数据在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
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
全部回答
- 1楼网友:拜訪者
- 2021-03-20 14:42
跟设置没有关系,我怀疑与你的键盘相关,因为ctrl和shift两个键相邻,是不是存在当按下ctrl键时shift键被接通了。假如你用ctrl键多次选取时出现的不是连续区域而是断续区域时,试着用鼠标右键“插入复制单元格”试试看。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯