如何按条件删除行后再写值

z865593849 · 发表于 2024-11-11 21:47

sampsonpon 发表于 2024-11-11 19:24
Very Good!
但是在识别日期时遇到问题了：我改了几个日期实测了一下，例如7.11.2024、8.11.2024、9.11.2 ...

你可以自己尝试探索一下，代码第一行先格式化，最后一行再格式化回去

sampsonpon · 发表于 2024-11-12 07:57

gwjkkkkk 发表于 2024-11-11 18:46
Option Explicit
Sub TEST1()
Dim ar, br, i&, j&

没有第一项删除最旧一天所有行数据功能

sampsonpon · 发表于 2024-11-12 08:07

本帖最后由 sampsonpon 于 2024-11-12 10:37 编辑

z865593849 发表于 2024-11-11 17:22
按条件删除行后再写值

最后两个问题：
1、原本是这样的：

运行后G的标题内容和J1、K1处内容被抹掉了

2、如果只有一天的日期也被删除了(所谓最旧日期，是指与所有内容的日期比较它是最旧日期，只有1天日期无需执行删除动作只给G列写值)

z865593849 · 发表于 2024-11-12 10:05

还是sql 大法好

sampsonpon · 发表于 2024-11-12 10:34

本帖最后由 sampsonpon 于 2024-11-12 10:38 编辑

z865593849 发表于 2024-11-12 10:05
还是sql 大法好

如果只有一天的日期也被删除了(所谓最旧日期，是指与所有内容的日期比较它是最旧日期，只有1天日期无需执行删除动作只给G列写值)

sampsonpon · 发表于 2024-11-12 11:09

ykcbf1100 发表于 2024-11-11 17:54
参与一下。。。

老师，我实测结果不对

z865593849 · 发表于 2024-11-12 11:09

sampsonpon 发表于 2024-11-12 10:34
如果只有一天的日期也被删除了(所谓最旧日期，是指与所有内容的日期比较它是最旧日期，只有1天日期无需执 ...

第一行加个判断就行了

ykcbf1100 · 发表于 2024-11-12 11:11

sampsonpon 发表于 2024-11-12 11:09
老师，我实测结果不对

怎么会不对呢，方法应该没问题啊

sampsonpon · 发表于 2024-11-12 11:23

ykcbf1100 发表于 2024-11-12 11:11
怎么会不对呢，方法应该没问题啊

写值时只识别到这个

sampsonpon · 发表于 2024-11-12 11:25

本帖最后由 sampsonpon 于 2024-11-12 13:56 编辑

z865593849 发表于 2024-11-12 11:09
第一行加个判断就行了

在第一行里加了这句，F列只剩同一个日期的照样会被删掉
If Evaluate("IF(CountA(UNIQUE(F:F))=2, True, False)") Then Exit Sub

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

[求助] 如何按条件删除行后再写值