求大神指导，循环条件中有重复值，如何跳转到下一个值

aellu

如图 每个小计的行中填入公式，这个公式的位置在第二列的每个表头这个代码 循环有问题，求救应该怎么写？？？
我需要在每一个小计行里面插入一个   计算日期的公式，  公式的来源于左方的时间，如 B4,B10，
在I9单元格  公式为：=(DATEDIF(DATE(MID(B4,1,4),MID(B4,6,2),1),"2018-10-1","M"))/(DATEDIF(DATE(MID(B4,1,4),MID(B4,6,2),1),EDATE(DATE(MID(B4,12,4),MID(B4,17,2),28),1),"M"))
在I14单元格中 公式为=(DATEDIF(DATE(MID(B10,1,4),MID(B10,6,2),1),"2018-10-1","M"))/(DATEDIF(DATE(MID(B10,1,4),MID(B10,6,2),1),EDATE(DATE(MID(B10,12,4),MID(B10,17,2),28),1),"M"))

我希望能用一个循环值I 先判断时间在第I行，然后判断小计在第R行，然后再在 相应的小计行填入公式，相应的引用的单元格为  B I
要求如何实现的呢最简单的就是
就是如何能在  每个小计行   里面   填入 表头 B4 B10 这几个值，然后后面的我就会自己修改的了。


aaa.rar (11.57 KB, 下载次数: 9)

2018-9-25 11:48 上传

点击文件名下载附件

Sub time()
Dim i%, r%
Dim sh As Worksheet
For Each sh In Worksheets
If Right(sh.Name, 2) = "AA" Then
With sh
  For i = 4 To .Range("c65536").End(xlUp).Row
        If .Cells(i, 2) <> "" Then
            For r = 4 To .Range("c65536").End(xlUp).Row
                 If .Cells(r, 3) = "小计" Then
                    .Cells(r, 9).Formula = "=(DATEDIF(DATE(MID(B" & i & ",1,4),MID(B" & i & ",6,2),1)," & Chr(34) & "2018-10-1" & Chr(34) & "," & Chr(34) & "M" & Chr(34) & "))/(DATEDIF(DATE(MID(B" & i & ",1,4),MID(B" & i & ",6,2),1),EDATE(DATE(MID(B" & i & ",12,4),MID(B" & i & ",17,2),28),1)," & Chr(34) & "M" & Chr(34) & "))"
                End If
            Next         
        End If
Next
End With
End If
Next
End Sub

lzyamo3057

能不能具体说明清楚要求？看代码好累的。

aellu

lzyamo3057 发表于 2018-9-25 13:10
能不能具体说明清楚要求？看代码好累的。

更新了下，麻烦你看看呢？