VBA怎么实现批量执行：同标题情况下（标题为空的行不执行），A列或B列值都相同情况...

宏初学者

       VBA怎么实现批量执行：同标题情况下（标题为空的行不执行），A列或B列值都相同情况下，删除A列或B列全部内容(A列或B列在同标题下，只要有一个单元格不一样，就都不删除）；当标题不为空且不重复的情况下A列等于B列时，删除B列内容..

宏初学者

大神们，辛苦看看下，无从下手，不知道怎么弄

醉眼看尘世

宏初学者 发表于 2024-10-7 21:43
大神们，辛苦看看下，无从下手，不知道怎么弄

VBA不想写，给你条公式吧
m2公式
=IF($H2="",A2,IF(OR(COUNTIFS(A$2:A2,A2,$H$2:$H2,$H2)>1,COUNTIF($A2:A2,A2)>1),"",A2))
向下向右填充

宏初学者

醉眼看尘世 发表于 2024-10-7 22:40
VBA不想写，给你条公式吧
m2公式
=IF($H2="",A2,IF(OR(COUNTIFS(A$2:A2,A2,$H$2:$H2,$H2)>1,COUNTIF($A ...

感谢大哥，不过数据上万条，公式用了整个表格很卡

醉眼看尘世

宏初学者 发表于 2024-10-7 22:44
感谢大哥，不过数据上万条，公式用了整个表格很卡

公式结果对不？对的话明晚帮你写

宏初学者

醉眼看尘世 发表于 2024-10-8 01:03
公式结果对不？对的话明晚帮你写

有个别结果会有错误

醉眼看尘世

宏初学者 发表于 2024-10-8 09:16
有个别结果会有错误

上面那个D是没有标题产生的---，下面那个D是该标题第一次出现D色

所以我不清楚你的逻辑。

宏初学者

醉眼看尘世 发表于 2024-10-8 20:07
上面那个D是没有标题产生的---，下面那个D是该标题第一次出现D色

所以我不清楚你的逻辑。

就是没有标题的不执行，有标题的执行，且同一标题下，A列全部都相同时，A列都删除（如果A列中有一个不同就都不删除）