Вы можете использовать код ASCII для цитаты.

=CHAR(34)&E2&CHAR(34)

Если вы хотите добавить цитату в начало и конец, попробуйте

=""""&E2&""""

'VBA PowerShell Array'

Основные

• Обрабатывает только первый столбец.
• Игнорирует пустые клетки.
• например. Для диапазона A5:C17 формула =PSA(A5:C17) обрабатывает непустые ячейки в A5:A17.

Код

Function PSA(SourceRange As Range) As String
    ' Only for a one-column range

    Dim vnt As Variant    ' Source Range Array
    Dim strDel As String  ' PSA Delimiter
    Dim i As Long         ' Range Array Row Counter

    ' Copy first column of Source Range to Range Array.
    vnt = SourceRange(1, 1).Resize(SourceRange.Rows.Count)

    strDel = Chr(34) & "," & Chr(34)

    For i = 1 To UBound(vnt)
        If vnt(i, 1) <> "" Then
            If PSA <> "" Then
                PSA = PSA & strDel & vnt(i, 1)
              Else
                PSA = Chr(34) & vnt(i, 1)
            End If
        End If
    Next

    If PSA <> "" Then PSA = PSA & Chr(34)

End Function