求个代码

wenping998

刚出了个表格 有4个sheet 都需要计算 给个代码支持 要求和详情都是表格附件里 希望大佬帮忙给个代码支持 A列代码每天会增加 代码每次运算也会增加

ykcbf1100

没搞懂序号和结果的关系。

ynzsvt

不是上次提问给你代码了呀，又不是给图片的。想再整啥？

wenping998

ynzsvt 发表于 2025-1-15 15:15
不是上次提问给你代码了呀，又不是给图片的。想再整啥？

对 你的代码是对的 我想着怎么样才能让结果计算到7094行  如果增加到7095 7096行后 计算结果也要相应的增加 怎么改代码呢   就比如计算结果K列最后一个数字  对于A列最后一个数字相应的结果

ynzsvt

1. Sub CItoLM()
   
2. Dim Arr, i&, j&, Brr, L&, m&, n&, r&
   
3. 
   
4. ' 已知条件
   
5. m = 3: n = 1
   
6. r = Cells(Rows.Count, 1).End(xlUp).row
   
7. Arr = [C2].Resize(r - 1, 7)
   
8. ReDim Brr(1 To UBound(Arr), 1 To 2)
   
9. 
   
10. ' 计算过程
    
11. L = 1: Brr(L, 1) = 1
    
12. For i = 1 To UBound(Arr) - 1
    
13.   If Arr(i, m + 1) = m And Arr(i + 1, n + 1) = n Then
    
14.    L = L + 1: Brr(L, 1) = i: Brr(L, 2) = i - Brr(L - 1, 1) - 1
    
15.   End If
    
16. Next 'i
    
17. 
    
18. ' 输出
    
19. [L20].Resize(L, 2) = Brr
    
20. End Sub

复制代码

ynzsvt

回复需要审核，请等待通过

grf1973

请看附件。。。。

wenping998

grf1973 发表于 2025-1-15 15:31
请看附件。。。。

对 就是要这个结果 感谢感谢  因为数据每天都增加  最后一个数字对了

wenping998

grf1973 发表于 2025-1-15 15:31
请看附件。。。。

以后要是筛选34组合 是不是 只需要改这个就可以呢

grf1973

wenping998 发表于 2025-1-15 15:47
以后要是筛选34组合 是不是 只需要改这个就可以呢

没毛病，完全正确