按要求的数字插入行

queenie_jing · 发表于 2021-12-14 14:59

本帖最后由 queenie_jing 于 2021-12-14 18:47 编辑

原始数据是左侧，希望实现效果是右侧，用数组公式处理比较多的数据时，会有一些卡顿，所以想请教一下，VBA可以解决这个问题吗？

按要求的出现次数插入行 https://club.excelhome.net/thread-1609679-1-1.html (出处: ExcelHome技术论坛)

lcluck2002 · 发表于 2021-12-14 15:00

本帖最后由 lcluck2002 于 2021-12-14 15:11 编辑

这个好玩，像作业一样，顶一下先。

queenie_jing · 发表于 2021-12-14 15:43

lcluck2002 发表于 2021-12-14 15:00
这个好玩，像作业一样，顶一下先。

VBA还是很哇塞啊~感谢，因为水平太菜，所以天天送花，花都送完了

只能再次感谢！

ykcbf1100 · 发表于 2021-12-14 15:58

这个好象不难。

无雨谷 · 发表于 2021-12-14 15:59

新人苦呀，大门难进

queenie_jing · 发表于 2021-12-14 16:07

本帖最后由 queenie_jing 于 2021-12-14 17:45 编辑

感谢各位老师！

ykcbf1100 · 发表于 2021-12-14 16:19

queenie_jing 发表于 2021-12-14 16:07
我感觉我每次伸手要代码时，总能得到你的答复，难为情。请问你是大学有这专业课吗？我靠着多学的一点公式 ...

我VBA也是刚入门，所以，我现在有机会就多练手，主要是为提高自己的写代码能力。

home1471 · 发表于 2021-12-14 16:52

看别人都是发的到另两列去重新做表，我发一个在当前列变动的，请高手指点。
For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
      x = Cells(i, 1).Value
      For j = Cells(i, 2).Value To 2 Step -1
         Rows(i).Insert Shift:=xlDown
         Cells(i, 1).Value = x
         Cells(i, 2).Value = j - 1
      Next
Next

		自动登录	找回密码
密码			免费注册

[已解决] 按要求的数字插入行

评分