求组 如何用代码快速利用单元格算术关系来删除行

三等菜鸟

请教老师
如表，需要删除E列与A列的差值小于[m7] 的值，删除后的数据仍然在A:E列，怎么写这个小代码？谢谢

Sub test()

        ar = Cells(i, 1).Resize(1, 5)

for i=1 to [a5000].End(3).Row

         If ar(i, 9) -ar(i, 1)<=[m7] Then

写不下去了

ykcbf1100

听我一句劝，对于帮助你的人，要学会感恩，除了说谢谢外，还应该送上几朵免费的小花，以鼓励帮助你的人。作了一个在论坛混了12年的老会员，送小花这样的技能你总应该会吧，如果不会，我可以告诉你，右下角有个评分，点进去就可以送小花了。
你有没有发现，对于你的求助帖，帮助你的人越来越少了，个中原因值得你深思啊。

心的启点

你这个描述让人看不懂。可不可以描述清楚一点？什么是删除后的数据仍然在A:E列？

三等菜鸟

非常惭愧@ ykcbf1100
不是我不肯送花，我一直以为这个花是自己的鲜花 ，而自己的鲜花一直为0，送不了啊。现在才知道了这个评分就是送小花。
前2天，你一天里帮我解决了2个问题，我记着的呢
至于学习，全是自学，没人交流的，很累很吃力。看过2本书，看的内容总觉得与实际对不上，还有记不住。后来也就放弃了。现在能看懂一些，但远远达不到自己编写的水平
对于帮过的人我记着呢 好几年前的 玄霜 ？？，川岛群子等等
我诚心接受老师的批评

ykcbf1100

三等菜鸟 发表于 2023-4-19 19:39
非常惭愧@ ykcbf1100
不是我不肯送花，我一直以为这个花是自己的鲜花 ，而自己的鲜花一直为0，送不了啊。 ...

写代码的人也是需要鼓励的。
我知道，很多人不是不想送花，而是因为不知道如何送花。

ykcbf1100

三等菜鸟 发表于 2023-4-19 19:39
非常惭愧@ ykcbf1100
不是我不肯送花，我一直以为这个花是自己的鲜花 ，而自己的鲜花一直为0，送不了啊。 ...

附件供参考。。。

gwjkkkkk

根据自己理解 ，请参考。。。

三等菜鸟

谢谢 ykcbf1100
       gwjkkkkk