Мне нужна помощь в создании цикла для моей следующей проблемы.
У меня есть список элементов в столбце K, а их значения в столбце L.
Что я хочу сделать, это:
Для каждой ячейки в столбце K, содержащей "Item1", возьмите ее значение и добавьте все найденные значения.
Я пытаюсь сделать это без необходимости вставлять все значения, найденные в столбце N, а затем складывать их.
Ниже мой код.
Sub Test()
Dim rng As Range, cell As Range
Set rng = Range("K1:K10")
For Each cell In rng
cell.Activate
Val1 = cell.Value
If Val1 = "Item1" Then
Val2 = ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Value
If Sheets("Sheet1").Range("N1") = "" Then
Sheets("Sheet1").Range("N1") = Val2
Else
Sheets("Sheet1").Range("N33").End(xlUp).Offset(1) = Val2
End If
Else
End If
Next cell
Range("N11").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-10]C:R[-1]C)"
End sub