大神，求帮助

郭九红

有一组数字，数字有31个，数字内容是1-10，需求是要看这组数字里面的3的个数，连续不能超过2个3，一共不能超过4个3，超出的需要用0代替。这个数据要怎么做呀！！！

david7911

你发错版块了

郭九红

应该怎么发？

xiaojia8211

发到“EXCEL函数与公式”版，试试

wb_1027

如果用函数的话，就是条件判断，但数据太多，会卡死，建议有VBA高手给写段代码或其他。


副本.zip (667.23 KB, 下载次数: 3)

2021-11-3 21:21 上传

点击文件名下载附件

493861364

1. Sub 宏1()
   
2. 
   
3. For i = 1 To 5100
   
4. 
   
5.     For j = 1 To 31
   
6.         count1 = Cells(1 + i, 6 + j)
   
7.         count2 = Cells(1 + i, 6 + j).Offset(0, 1)
   
8.         count3 = Cells(1 + i, 6 + j).Offset(0, 2)
   
9.         
   
10.         If count1 = 3 Then m = m + 1: n = n + 1
    
11.         If count2 = 3 Then m = m + 1
    
12.         If count3 = 3 Then m = m + 1
    
13.         If m > 2 Then Cells(1 + i, 6 + j).Offset(0, 2) = 0
    
14.         If n > 4 And Cells(1 + i, 6 + j) = 3 Then Cells(1 + i, 6 + j) = 0
    
15.         m = 0
    
16.     Next
    
17.    
    
18.     n = 0
    
19. Next
    
20. 
    
21. End Sub
    

复制代码

郭九红

谢谢两位大佬，if函数的我懂了，就是VBA编程我不会，小白一个，但是也非常感谢

郭九红

493861364 发表于 2021-11-3 23:04

大佬，前半句我看懂了，后面那个m，n代表的是什么意思呀，后面就不懂了。

493861364

郭九红 发表于 2021-11-4 10:20
大佬，前半句我看懂了，后面那个m，n代表的是什么意思呀，后面就不懂了。

你测试一下，看结果对不对，代码我也是一知半解的，你不是有2个约束条件吗，m、n就是那2个约束条件计数用的

郭九红

493861364 发表于 2021-11-4 10:58
你测试一下，看结果对不对，代码我也是一知半解的，你不是有2个约束条件吗，m、n就是那2个约束条件计数用 ...

我测试过了，结果生成是对的。