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

Question

请协助。我希望代码通过B列查看文本" Days库存封面"。一旦找到，我需要从文本（同一行）中插入一个经常出现的公式3个单元。这必须直接通过文件循环，直到每排带有天数的库存都有计算。我不知道从哪里开始。

我能够找到细胞并插入计算；但是我不知道如何链接它。

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