两个代码单独跑没问题，一起就不能跑了。。。。

叶win · 发表于 2021-9-2 19:06

boy8199 · 发表于 2021-9-3 08:58

提示什么? 详细介绍一下.

叶win · 发表于 2021-9-3 09:38

boy8199 发表于 2021-9-3 08:58
提示什么? 详细介绍一下.

没有提示。就是不跑程序，本来是第一行删除一个区域的空行，然后后面是根据区域的数据做的自动筛选。现在这个程序就是不能删除空行。但是我单独把删除空行代码拿出去又能用。

boy8199 · 发表于 2021-9-3 20:00

本帖最后由 boy8199 于 2021-9-3 20:28 编辑

叶win 发表于 2021-9-3 09:38
没有提示。就是不跑程序，本来是第一行删除一个区域的空行，然后后面是根据区域的数据做的自动筛选。现在 ...

Sheets("工资表核算").Range("v7:v30").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
我试了一下没有问题

你的表述,要清晰一点, 什么是空行?? 行??

完全是浪费别人时间. 你的代码删除的是空单元格.

你说清楚了, 网友们才愿意讨论. 否则没法下手呀.

boy8199 · 发表于 2021-9-3 20:16

叶win 发表于 2021-9-3 09:38
没有提示。就是不跑程序，本来是第一行删除一个区域的空行，然后后面是根据区域的数据做的自动筛选。现在 ...

你第一句代码不是删除行

Sheets("工资表核算").Range("v7:v30").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
这句才是删除行

但是你的选择 rang("v7:v30") 是什么意思? 这样会删除 20多行

boy8199 · 发表于 2021-9-3 20:30

还有

'Application.ScreenUpdating = False '关闭屏幕刷新
'Application.DisplayAlerts = False '关闭提示

你的代码是哪来的? 别忘了处理一下

boy8199 · 发表于 2021-9-3 20:40

你这个表是每个人都去修个这个表吧,这不方便吧.

可以每个店做一个表,你直接汇总到总表 ,这样他们都维护自己的表 1-12个月,会更好.

你保留他们上传的表即可.

叶win · 发表于 2021-9-4 13:12

boy8199 发表于 2021-9-3 20:40
你这个表是每个人都去修个这个表吧,这不方便吧.

可以每个店做一个表,你直接汇总到总表 ,这样 ...

已经解决了。就是删除空白单元格，然后通过高级筛选来筛选店铺。我把这个代码单独做成按键就解决了。之前这串代码上面还有登录的代码，本来想通过登录窗口点击就一键生成，结果就是数据跑不出来，跑到我截屏那段数据就不跑了。现在单独做了个按钮就解决了
。十分感谢

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