eliminar la primera cifra de una tabla que pego

15/04/2007 - 00:38 por hugo el campanero | Informe spam
hola les queria hacer una consulta

Quiero copiar de una pagina de internet una tabla diaria con resultados de
loteria e insertarlos en el excel hasta hay todo bien mi problema es que la
estadistica que copio es de cuatro cifras y yo la primera no quisiera
copiarla en la celda.
ej:

7829 829
6439 439
1382 382
0627 copiar y pegar 627

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
15/04/2007 - 02:00 | Informe spam
hola, ?

Quiero copiar de una pagina de internet una tabla diaria con resultados de loteria
e insertarlos en el excel hasta hay todo bien mi problema es que la estadistica que copio
es de cuatro cifras y yo la primera no quisiera copiarla en la celda. ej:
7829 829
6439 439
1382 382
0627 copiar y pegar 627



dado que los datos ya estan en una 'tabla' de alguna pagina web...

op1: 'transcribir' manualmente SOLO los datos que quieres
op2: copiar desde la web DATO-POR-DATO seleccionando solo los carcteres que quieres
op3: copiar la tabla tal-cual y correr una macro que elimine los primeros n_caracteres en cada celda :-((

saludos,
hector.
Respuesta Responder a este mensaje
#2 AnSanVal
15/04/2007 - 12:53 | Informe spam
Hola Hugo.

Después de Copiar/Pegar en tu hoja los datos, y suponiendo que estos están
en la columna A a partir de A1, escribe en B1: =--DERECHA(A1;3)

Copia/Pega o arrastra hacia abajo la fórmula, selecciona el rango con
fórmulas, das a Copiar, das a pegado especial>Valores y luego eliminas la
columna A.

Todo el proceso anterior lo puedes hacer de forma automática (después de que
tengas los datos en la hoja), si Copias, Pegas (en un módulo ordinario) y
ejecutas la siguiente Subrutina:

Sub extrae_3()
Dim ultima, n As Integer
ultima = Cells(65536, 1).End(xlUp).Row
Range("B1:B" & ultima).Select
Selection.FormulaR1C1 = "=--RIGHT(RC[-1],3)"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Columns("A:A").Delete Shift:=xlToLeft
Range("A1").Select
End Sub

Saludos desde Tenerife (España)
**********************************
"hugo el campanero" <hugo el escribió
en el mensaje news:
hola les queria hacer una consulta

Quiero copiar de una pagina de internet una tabla diaria con resultados de
loteria e insertarlos en el excel hasta hay todo bien mi problema es que
la
estadistica que copio es de cuatro cifras y yo la primera no quisiera
copiarla en la celda.
ej:

7829 829
6439 439
1382 382
0627 copiar y pegar 627
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida