Применение формулы для каждого столбца - PullRequest
Новая
       5

Применение формулы для каждого столбца

0 голосов
/ 09 мая 2019

Я учусь автоматизировать еженедельный отчет о продажах, где мой основной лист использует VLOOKUP для ссылки на продажи с другого листа.Заголовки от 1 недели до текущей недели.Как применить формулу для каждого столбца до последнего?

Здесь я записал макрос вставки одной из формул в первый столбец.

Sub Macrotesting()
'
' Macrotesting Macro
'

'
    Range("L2").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP([@[Internal ID]],sales[#All],3,FALSE),0)"
    Range("L3").Select
    Range("CL[Week 1]").FormulaR1C1 = _
        "=IFERROR(VLOOKUP(CL[@[Internal ID]],sales[#All],3,FALSE),0)"
End Sub

Я теряюсь в том, как перебирать каждый столбец, в котором продажи за неделю 1 находятся в другом столбце таблицы 3, а неделя 2 - в столбце 4 и т. Д.

1 Ответ

0 голосов
/ 09 мая 2019

Если вы хотите манипулировать формулой и циклически перебирать набор чисел, вы можете сделать следующее: 

For wknum = 1 To thiswknum

    Range("CL[Week " & wknum & "]").FormulaR1C1 = _
            "=IFERROR(VLOOKUP(CL[@[Internal ID]],sales[#All]," & wknum + 2 & ",FALSE),0)"

Next

Очевидно, вам нужно как-то обнаружить / установить thiswknum,Я оставлю это тебе.

...