一个一直循环结束,一个只循环9次,9次以后再循环

18262162108

各位VB大神
如附件内容
附件的格式,有一列的数据要写的代码,我只写了一个循环
后面循环套了也不对,不知怎么再写,请各位帮忙看下代码帮忙完善
本人初级

谢谢

鄂龙蒙

循环2次后再循环求助.rar (24.08 KB, 下载次数: 6)

2019-10-26 15:42 上传

点击文件名下载附件

鄂龙蒙

1. Sub 计算()
   
2.     Dim i, j, arr
   
3.     [G4:G57] = ""
   
4.     arr = [C4:F57]
   
5.     For i = 2 To UBound(arr)
   
6.         For j = 1 To 2
   
7.             If arr(i, j) = "" Then arr(i, j) = arr(i - 1, j)
   
8.         Next
   
9.     Next
   
10.     For i = 1 To UBound(arr)
    
11.         Cells(i + 3, 7) = (arr(i, 1) - arr(i, 2)) * arr(i, 4)
    
12.     Next
    
13. End Sub

复制代码

wodewan

Sub test()

Dim i&

i = 3

Do Until Cells(i + 1, 1).Value = "合計"

    i= i + 1

   Cells(i, 7) = (Cells(i, 3).MergeArea.Cells(1, 1) - Cells(i,4).MergeArea.Cells(1, 1)) * Cells(i, 6)

Loop

End Sub

ychj526926

Sub jisuan()
    With Sheet2
        k = 4   ' 开始行号
        Do
            For i = 1 To 9
                .Cells(i + k - 1, 7) = (.Cells(k, 3) - .Cells(k, 4)) * .Cells(i + k - 1, 6)
            Next
            k = k + 9
        Loop Until .Cells(k + 8, 5) = ""
   
    End With
End Sub