Вставьте формулу или пробел на основе значения в другой ячейке

Question

Я изо всех сил пытаюсь получить это право.

Я пытаюсь либо вставить формулу в столбец B, если в столбце A написано "AA" или "AB", либо оставить это поле пустым, еслив столбце A указано «CC».

Например,

, если ячейка A1 соответствует AA, тогда формулу необходимо вставить в ячейку B1,

если ячейка A2 - это AB, то формула должна быть вставлена ​​в ячейку B2,

, если ячейка A3 - это CC, тогда ячейка B3 должна быть пустой.

Кто-нибудь знает, как мне это сделать?

Большое спасибо заранее.

Тим

Answer 1

Попробуйте это

Sub test()

Dim ws as Worksheet

Set ws = Worksheets("Sheet1")

If ws.Cells(1, 1).Value2 = "AA" Then
    ws.Cells(1, 2).Formula = "Whatever formula you need"
Elseif ws.Cells(2, 1).Value2 = "AB" Then
    ws.Cells(2, 2).Formula = "Whatever formula you need"
Elseif ws.Cells(3, 1).Value2 = "CC" Then
    ws.Cells(3, 2).Formula = "Whatever formula you need"
End If

End Sub

Этот макрос будет рассматривать ваш рабочий лист как "Лист1", поэтому, если это не ваш случай, пожалуйста, измените его.На условиях, согласно вашему объяснению, я помещаю код, просто заменив «Какая формула вам нужна» формулой, которую вы хотите.Google, как ввести формулы Excel в VBA или использовать функции VBA.

Надеюсь, это поможет