[已解决]这种分门别类的整理，不知能否实现呢？

colour250

一直想解决这个问题，可是一直没有的找到合适的方法释放双手，只能重复复制粘贴，太累了，那位老师可以出手帮助，小弟感激不尽！
要求：
1、点击“整理”按钮时自动操作归类。
2、根据“每日业绩清单”的内容，分门别类的增加到“电商部”、“营销部”、“门店一”、“门店二”、“门店三”的工作表中。
3、如果有更好整理方式请提供，感激不尽。

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-11-9 17:07

colour250 发表于 2021-11-9 16:54
果然强大啊！VBA加密了，是需要付费才可以打开吗？

没有加密喔，代码如下：

Sub demo()
   a = [a1].CurrentRegion
   For i = 3 To UBound(a)
      sh = Array(a(i, 3), a(i, 6)): v = Array(a(i, 6), a(i, 3))
      For j = 0 To 1
         Set Rng = Sheets(sh(j)).[a:g].Find(v(j), , , , , xlPrevious)
         Rng.EntireRow.Insert
         With Rng.Offset(-1)
            .Offset(, 3).NumberFormat = "@"
            .Resize(, 10) = Application.Index(a, i)
            .Cells = "=N(R[-1]C)+1"
            .Resize(, 7).Borders.LineStyle = xlContinuous
         End With
      Next
   Next
End Sub

跳转到最佳答案楼层

砂海

搜索 " Excel 代工" , 不谢

cutecpu

祝順心，南無阿彌陀佛！

colour250

cutecpu 发表于 2021-11-9 16:13
祝順心，南無阿彌陀佛！

果然强大啊！VBA加密了，是需要付费才可以打开吗？

cutecpu

colour250 发表于 2021-11-9 16:54
果然强大啊！VBA加密了，是需要付费才可以打开吗？

没有加密喔，代码如下：

Sub demo()
   a = [a1].CurrentRegion
   For i = 3 To UBound(a)
      sh = Array(a(i, 3), a(i, 6)): v = Array(a(i, 6), a(i, 3))
      For j = 0 To 1
         Set Rng = Sheets(sh(j)).[a:g].Find(v(j), , , , , xlPrevious)
         Rng.EntireRow.Insert
         With Rng.Offset(-1)
            .Offset(, 3).NumberFormat = "@"
            .Resize(, 10) = Application.Index(a, i)
            .Cells = "=N(R[-1]C)+1"
            .Resize(, 7).Borders.LineStyle = xlContinuous
         End With
      Next
   Next
End Sub

colour250

cutecpu 发表于 2021-11-9 17:07
没有加密喔，代码如下：

Sub demo()

  太不可思议了，就这几句代码？ 实在看不懂   总而言之，很感谢老师的无私帮助，每天重复复制粘贴的工作实在累人。对于有偿付出，我也是愿意的，毕竟也是需要付出时间与劳动的。 谢谢！

colour250

colour250 发表于 2021-11-9 17:29
太不可思议了，就这几句代码？ 实在看不懂   总而言之，很感谢老师的无私帮助，每天重复复制 ...

请问老师，经反复研究证实，发现只要“每日清单表“里含有公式链接时一运行宏文件就报错了，但是奇怪的是也能操作成功？请问什么原因？谢谢

cutecpu

colour250 发表于 2021-11-10 22:21
请问老师，经反复研究证实，发现只要“每日清单表“里含有公式链接时一运行宏文件就报错了，但是奇怪的 ...

如下，加一行红色代码  

For i = 3 To UBound(a)
      If a(i, 3) = "" Then Exit For
      sh = Array(a(i, 3), a(i, 6)): v = Array(a(i, 6), a(i, 3))

colour250

cutecpu 发表于 2021-11-10 23:06
如下，加一行红色代码  

For i = 3 To UBound(a)

太强大了，谢谢！