VBA 这个循环怎么写?

On_fire

VBA 这个循环怎么写?

*

Sheet1是源数据, 暂时删掉不用处理的数据

I列是要统计的列, 每26行是一个区域, 行数是变量

*

代码的逻辑如下,

1.      累加统计每个区域内的框线

2.      在每个区域的第25行输出结果及加底黄

*

Sheet1(2)是模拟结果

*

恳请老师, 大神帮忙…谢谢!!!

Yalishanda30

没标‘有难度’，估计没人出手

fzxba

1. Sub test0()
   
2.   Dim i As Long, j As Long, p As Long
   
3.   Do
   
4.     j = 0
   
5.     p = p + 26
   
6.     If Cells(p, "J").Borders(9).LineStyle = -4142 Then Exit Do
   
7.     For i = p - 25 To p
   
8.       If Cells(i, "I").Borders(7).LineStyle + 4142 Then j = j + 1
   
9.     Next
   
10.     With Cells(p - 1, "I")
    
11.       .Value = j
    
12.       .Interior.Color = vbYellow
    
13.     End With
    
14.   Loop
    
15. End Sub

复制代码

zjlive

Jday1218

你这个附件绝了  
Sub ProcessData()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim sum As Double
   
    ' 设置工作表为Sheet1
    Set ws = ThisWorkbook.Worksheets("Sheet1")
   
    ' 查找I列的最后一行
    lastRow = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row
   
    ' 初始化sum
    sum = 0
   
    ' 遍历I列的数据
    For i = 1 To lastRow
        ' 累加每个区域内的框线
        sum = sum + ws.Cells(i, "I").Value
        
        ' 每26行是一个区域，输出结果及加底黄
        If i Mod 26 = 25 Then
            ' 输出累计值
            ws.Cells(i, "I").Value = sum
            
            ' 设置底色为黄色
            ws.Cells(i, "I").Interior.Color = RGB(255, 255, 0)
            
            ' 重置sum为0，以便处理下一个区域
            sum = 0
        End If
    Next i
End Sub

On_fire

zjlive 发表于 2023-3-16 14:21

感谢老师,
原来是要双循环, 怪不得一直都不想通...
*

想再追问一个问题?

如果多列, 如I, J, K, L, 4列都要这样统计, 要咋改?

On_fire

fzxba 发表于 2023-3-16 14:06

老师好,
这题一定要向你请教…
＊
如果多列, 如I, J, K, L,
有4列都要同样的统计, 再套多一个循环,要咋改?

On_fire

fzxba 发表于 2023-3-16 14:06

再次感谢老师…牛!!!