请帮助用VBA写个代码删除区域内表格中符合设定条件的数据

徐国友 · 发表于 2024-3-4 22:19

老师们好，祝论坛上所有的老师们龙年大吉万事如意，请老师们在百忙中抽点时间帮助用VBA写个代码删除区域内表格中符合设定条件的数据，自己目前也就会写几句极容易的单句如果不管三七二十一将区域中全部数据删除能做到可是带条件的删除部分保留一部分目前就做不到了，请老师们帮助写一个VBA代码具体情况请下载附件查看，非常感激老师帮助再次拜谢。

2024221.rar (182.83 KB, 下载次数: 10)

liulang0808 · 发表于 2024-3-5 08:03

Sub 删除后复原数据()

Application.ScreenUpdating = False
For j = 10 To 184 Step 11
      For i = 1 To 188 Step 9
         Set Rng = Cells(j, i).Resize(10, 8)
         If WorksheetFunction.CountA(Rng) >= 49 Then
            Rng.Value = ""
         End If
      Next i
Next j
Application.ScreenUpdating = True

End Sub

liulang0808 · 发表于 2024-3-5 08:04

2024221.zip (169.81 KB, 下载次数: 8)

saghj · 发表于 2024-3-5 14:28

交个作业。。。

徐国友 · 发表于 2024-3-5 22:32

本帖最后由徐国友于 2024-3-5 22:37 编辑

liulang0808 发表于 2024-3-5 08:03
Sub 删除后复原数据()

Application.ScreenUpdating = False

感谢老师帮助，代码已试用能够完美解决我需求，再次感谢。

徐国友 · 发表于 2024-3-5 22:36

saghj 发表于 2024-3-5 14:28
交个作业。。。

感谢帮助，代码已试用，但有一个小BUG,当按纽按两次时就会出现运行错误13，若有空请再修改一下代码，谢谢提供。

liulang0808 · 发表于 2024-3-6 07:36

徐国友发表于 2024-3-5 22:36
感谢帮助，代码已试用，但有一个小BUG,当按纽按两次时就会出现运行错误13，若有空请再修改一下代码，谢 ...

应该不会出现楼主说的问题，
就是3楼上传的附件，未做任何修改出现这个情况吗？

徐国友 · 发表于 2024-3-6 22:29

liulang0808 发表于 2024-3-6 07:36
应该不会出现楼主说的问题，
就是3楼上传的附件，未做任何修改出现这个情况吗？

老师好，你帮写代码已完美解决我需求没出问题，4楼老师帮写的代码也能按要求删除数据，但多按一次按纽就会出现运行错误，想看看4楼老师修改一下BUG，好学习对比一下是那方面出了点问题。

liulang0808 · 发表于 2024-3-7 07:48

徐国友发表于 2024-3-6 22:29
老师好，你帮写代码已完美解决我需求没出问题，4楼老师帮写的代码也能按要求删除数据，但多按一次按纽 ...

你用的是excel吗？我这边测试不存在你说的情况啊
可能得话，做一段录屏看看

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

[求助] 请帮助用VBA写个代码删除区域内表格中符合设定条件的数据

评分

评分

[求助] 请帮助用VBA写个代码 删除区域内表格中符合设定条件的数据

评分

评分

[求助] 请帮助用VBA写个代码删除区域内表格中符合设定条件的数据