«_» подчеркивание в формуле Excel

Question

У меня проблема при попытке запустить эти команды.Проблема возникает из-за выражения формулы, поскольку "_" является синтаксической ошибкой, но мне нужна именно эта формула в моих ячейках Excel,

Как я могу ее решить?

Sub Prueba_Fernando()
Application.ScreenUpdating = False
Range("B:B").Columns.Insert
    Range("B1").FormulaLocal = "=EXTRAE(A1;HALLAR("_";A1;2)+1;LARGO(A1)-HALLAR("_";A1;1))"
        Set h1 = Sheets("Hoja1")
        h1.Range("B1").Copy
        For Each h In Sheets
        u = h.Range("A" & Rows.Count).End(xlUp).Row
        h1.Range("B2:B" & u).PasteSpecial xlAll
        Next
        MsgBox "Fórmulas aplicadas"

Dim xColIndex As Integer
Dim xRowIndex As Integer
xIndex = Application.ActiveCell.Column
xRowIndex = Application.ActiveSheet.Cells(Rows.Count, xIndex).End(xlUp).Row
Range(Cells(3, xIndex), Cells(xRowIndex, xIndex)).Copy
Application.ScreenUpdating = True
MsgBox "Información copiada a Portapapeles"

End Sub

Answer 1

Вы правы, проблема заключается в формуле.

Это вызвано ", когда вы хотите иметь двойную кавычку внутри строки, вам нужно удвоить ее, иначе это будетинтерпретироваться как конец строки, таким образом ошибки.

Используйте эту строку:

Range("B1").FormulaLocal = "=EXTRAE(A1;HALLAR(""_"";A1;2)+1;LARGO(A1)-HALLAR(""_"";A1;1))"