添加计数器每个回路

我一直无法弄清楚如何将计数器添加到下面for each循环，这样，当公式的整列已完成循环移动到下一列。所有的计算都正确发生，但都在同一列。感谢您的任何建议。添加计数器每个回路

Sub Test() 
Dim SrchRng1 As Range, cell1 As Range 
Dim SrchRng2 As Range, cell2 As Range 

Dim lr As Long 
lr = Sheets("sheet1").Cells(Rows.count, 2).End(xlUp).Row 
Set SrchRng1 = Sheets("sheet1").Range("B3:B95") 

Dim lc As Long 
lc = Sheets("sheet2").Cells(3, Columns.count).End(xlToLeft).Column 
Set SrchRng2 = Sheets("sheet2").Range("A3:AC3") 

Dim lrr As Long 
lrr = Sheets("sheet2").Cells(Rows.count, 2).End(xlUp).Row 

Dim c As Long 
c = 0 

For Each cell1 In SrchRng1 
    For Each cell2 In SrchRng2 

     If cell1.Value = cell2.Value Then 
      c = 31 
      For r = 4 To 100 
        Cells(r, c).FormulaR1C1 = "=sheet1!" & cell1.Offset(, 1).Address(ReferenceStyle:=xlR1C1) & "*" & cell2.Offset(1, 0).Address(ReferenceStyle:=xlR1C1) & "" 
      Next r 
      c = c + 1 
     End If 
    Next cell2 
Next cell1 
Application.DisplayAlerts = True 
End Sub

来源

2015-09-04 RTrain3k

您总是将c每次重置为31。移动C = 31从内循环的，到略低于第一for语句。就像这样：

For Each cell1 In SrchRng1 
    c = 31 
    For Each cell2 In SrchRng2 

     If cell1.Value = cell2.Value Then 

      For r = 4 To 100 
        Cells(r, c).FormulaR1C1 = "=sheet1!" & cell1.Offset(, 1).Address(ReferenceStyle:=xlR1C1) & "*" & cell2.Offset(1, 0).Address(ReferenceStyle:=xlR1C1) & "" 
      Next r 
      c = c + 1 
     End If 
    Next cell2 
Next cell1

来源

2015-09-04 20:32:03

谢谢！我把它放在''for each''循环之外，它工作！我一直盯着这个宏观太久了。 – RTrain3k

@ user3290799很高兴我能帮忙。 –

添加计数器每个回路

回答

相关问题