VBA查找文本并用计算填充行

Question

请协助。我想要一个代码通过B列查找文本“ Days Stock Cover”。找到后，我需要从文本（同一行）中插入一个重复出现的公式3个单元格。这必须在文件中循环，直到具有Days Stock Cover的每一行都有计算为止。我不知道从哪里开始。

我能够找到单元格并插入计算；但我不知道如何链接。

Answer 1

Dim i as integer
i=1
do until cells(i,2) = "" '2 is equal to Column B, do as long as the column goes
    if cells(i,2).value = "Days Stock Cover" then
        Range("E"& i).Formula = "=SUM(B4:B9)" 'enter the desired column and formula
    end if
    i = i+1
loop