|
Hola, antes que nada el apostrofe (') antes de cualquier texto o numero en excel signfica que lo ingresado es un texto por lo que deberás utiliar la tilde (´), la puedes sacar con tilde y barra espaciadora.
El codigo de la macro seria el siguiente:
Public Sub InsertarCaracter()
Dim i As Integer
Dim PrimeraFila As Integer
Dim UltimaFila As Integer
Dim Columa As Integer
PrimeraFila = 1
UltimaFila = 4
Columna = 1 'Columna A
For i = PrimeraFila To UltimaFila
' No pongas el apostrofe, pon tilde y un espacio
' ya que en excel el apostrofe significa que ingresaste un texto
Cells(PrimeraFila + i, Columna) = "´" & Cells(PrimeraFila + i, Columna)
Next i
End Sub
El tener esto en una hoja de excel:
A1 = 19/02/09 1:00 p.m.
A2 = 16/03/09 12:00 a.m.
A3 = 29/06/09 2:00 p.m.
A4 = 13/07/09 12:40 a.m.
la salida seria:
A1 = ´19/02/09 1:00 p.m.
A2 = ´16/03/09 12:00 a.m.
A3 = ´29/06/09 2:00 p.m.
A4 = ´13/07/09 12:40 a.m.
Espero te sirva, saludos.
|
