excel - pie - como poner referencias con numeros en word

Cómo insertar citas dobles o individuales

Question

Tengo una larga lista de nombres con los que necesito comillas (puede ser comillas dobles o simples) y tengo alrededor de 8,000 de ellos. Los tengo en Excel sin ninguna cita y puedo copiar todos los nombres y pegarlos sin ningún problema, pero todavía no hay citas. He buscado y buscado una fórmula de Excel para agregar citas al nombre en cada fila, pero no he tenido suerte. También he probado algunas técnicas inteligentes de búsqueda y reemplazo, pero tampoco he trabajado. El formato que busco es este:

"Allen" o ''Allen''

Cualquiera de esos funcionaría. Necesito esto para poder almacenar la información en una base de datos. Cualquier ayuda es muy apreciada. Gracias

PD:

He encontrado a otras personas en línea que necesitan hacer lo mismo que yo necesito y esta solución ha funcionado para ellas, pero no sé qué hacer con ellas:

Puede arreglarlo usando una variable de rango (myCell por ejemplo) y luego usarlo para iterar la colección de "selección" de objetos de rango, como así

Sub AddQuote()
Dim myCell As Range
    For Each myCell In Selection
        If myCell.Value <> "" Then
            myCell.Value = Chr(34) & myCell.Value
        End If
    Next myCell
End Sub

Otra solución que también funcionó para otros fue:

Sub OneUglyExport()

Dim FileToSave, c As Range, OneBigOleString As String

FileToSave = Application.GetSaveAsFilename

Open FileToSave For Output As #1

For Each c In Selection

If Len(c.Text) <> 0 Then _

    OneBigOleString = OneBigOleString & ", " & Chr(34) & Trim(c.Text) & Chr(34)

Next

Print #1, Mid(OneBigOleString, 3, Len(OneBigOleString))

Close #1

End Sub

Answer 1

Para crear nuevos valores citados a partir de valores no citados

• La columna A contiene los nombres.
• Ponga la siguiente fórmula en la Columna B = """" & A1 & """"
• Copiar la columna B y pegar especial -> Valores

Usando una función personalizada

Public Function Enquote(cell As Range, Optional quoteCharacter As String = """") As Variant
    Enquote = quoteCharacter & cell.value & quoteCharacter
End Function

=OfficePersonal.xls!Enquote(A1)

=OfficePersonal.xls!Enquote(A1, "''")

Para obtener cadenas entre comillas permanentes, deberá copiar valores de fórmula y valores especiales de pegado.

Answer 2

¿Por qué no usar un formato personalizado para la celda que necesita cotizar?

Si configura un formato personalizado para la columna de celda, todos los valores tomarán ese formato.

Para números ... como un código postal ... sería este ''#'' Para texto de cadena, sería este ''@''

Guarda el archivo en formato csv, y tendrá todas las citas alrededor de los datos de la celda según sea necesario.

Answer 3

O bien, seleccione rango y Formato celdas> Personalizado / "@ /"

Answer 4

Pasos más fáciles:

1. Resalte las celdas que desea agregar las comillas.
2. Ir a Formato–> Celdas–> Personalizado
3. Copie / pegue lo siguiente en el campo Tipo: / "@ /" o / ''@ /'
4. ¡Hecho!

Answer 5

Si guarda el archivo de Excel como un archivo en formato CSV, es posible que el resultado sea conveniente para insertarlo en una base de datos, aunque no estoy seguro de que todos los campos estén citados.

Answer 6

Suponiendo que sus datos están en la columna A, agregue una fórmula a la columna B

="''" & A1 & "''" 

y copia la fórmula. Si ahora guarda en CSV, debería obtener los valores citados. Si necesita mantenerlo en formato Excel, copie la columna B y luego pegue el valor para deshacerse de la fórmula.