Buenas a todos:

hola soy muy novato en vba y me gustaría hacer una pregunta

tengo una planilla excel con 2190 registros, a los que les debo eliminar el ultimo carácter y llevo harto buscando y pensando y no me resulta

la idea que yo tenia era la siguiente:

Range("A2:A2190").Select = Left(Range("A2:A2190"), Len(Range("A2:A2190")) - 1)

probe con:

 (Range().Value  / Range().Text) 

Algo así pero me dice error no coinciden los datos.

la verdad es que tengo poco conocimiento en vb

así que cualquier ayuda sirve

muchas gracias

Saludos.

Intentad con esté!

Sub EliminarUltimoCaracter()
    Dim oHoja As String: oHoja = "Hoja4"   ' Hoja de donde se realizará el proceso
    Dim oFila As Integer: oFila = 2        ' Inicio de fila
    Dim oColumna As String: oColumna = "A" ' Columna que contiene el texto
 
    ' Seleccionar la hoja    
    Sheets(oHoja).Select
    ' Recorrer todos los valores hasta que encuentre un celda vacia
    Do While Range(oColumna & oFila).Value <> Empty
        ' Reemplazar el valor de la celda por el mismo valor eliminando el ultimo caracter
        Range(oColumna & oFila).Value = Left(Range(oColumna & oFila).Value, Len(Range(oColumna & oFila).Value) - 1)
        ' Incremento de fila
        oFila = oFila + 1
    Loop
End Sub

Agregas un boton en la hoja y le asignas la macro que te acabe de copiar

Cambiaste el nombre de la hoja por la que tu tienes? La fila inicial y la columna?