ayuda

hola, Adriana !

[creo que] vas a necesitar de ser mas... 'explicita' en la descripcion de la situacion a resolver -?-

- que relacion existe entre ambas columnas ? [aparte de que al parecer necesitas dos celdas intermedias]
- por que un uno en las celdas intermedias ? [o de donde se toma 'ese' dato ?... puede ser 'otra cosa' ?]

saludos,
hector.

__ la consulta original __

Tengo una hoja con la siguiente informacion
Columna A
a
b
c
d
e
f
g
en la columna B necesito ver los siguiente:
Columna A Columna B
a a
b 1
c 1
d b
e 1
f 1
g c

... he probado varias cositas pero no puedo...

hola. gracias por responder siempre...

En realidad en la columna A voy a tener una serie de datos que nos son
especificamente esas letras... serán textos ... y en la columna B
necesito esos mismos valores pero con 2 celdas intermedias.
En las celdas intermedias, yo puse 1 para que ejemplificar, pero puede no
haber nada.

gRACIAS
Adriana
Patagonia
Argentina



"Héctor Miguel" escribió:

hola, Adriana !

[creo que] vas a necesitar de ser mas... 'explicita' en la descripcion de la situacion a resolver -?-

- que relacion existe entre ambas columnas ? [aparte de que al parecer necesitas dos celdas intermedias]
- por que un uno en las celdas intermedias ? [o de donde se toma 'ese' dato ?... puede ser 'otra cosa' ?]

saludos,
hector.

__ la consulta original __
> Tengo una hoja con la siguiente informacion
> Columna A
> a
> b
> c
> d
> e
> f
> g
> en la columna B necesito ver los siguiente:
> Columna A Columna B
> a a
> b 1
> c 1
> d b
> e 1
> f 1
> g c
>
> ... he probado varias cositas pero no puedo...

hola, Adriana !

... en la columna A voy a tener una serie de datos que... seran textos
... y en la columna B necesito esos mismos valores pero con 2 celdas intermedias.
En las celdas intermedias, yo puse 1 para que ejemplificar, pero puede no haber nada...

si suponemos que tus datos van a iniciar SIEMPRE en la fila 1 -?-
prueba con una macro +/- como la siguiente:

Sub Rellena_x3()
Dim Fila As Integer
For Fila = 1 To [a65536].End(xlUp).Row * 3 Step 3
Range("b" & Fila) = Range("a" & (Fila + 2) / 3)
Next
End Sub

si tus datos van a iniciar en la fila 2...
cambia a algo +/- como lo siguiente:

Sub Rellena_x3()
Dim Fila As Integer
For Fila = 2 To ([a65536].End(xlUp).Row - 1) * 3 Step 3
Range("b" & Fila) = Range("a" & (Fila + 1) / 3 + 1)
Next
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Gracias.. mil gracias

Adriana
Patagonia
Argentina



"Héctor Miguel" escribió:

hola, Adriana !

> ... en la columna A voy a tener una serie de datos que... seran textos
> ... y en la columna B necesito esos mismos valores pero con 2 celdas intermedias.
> En las celdas intermedias, yo puse 1 para que ejemplificar, pero puede no haber nada...

si suponemos que tus datos van a iniciar SIEMPRE en la fila 1 -?-
prueba con una macro +/- como la siguiente:

Sub Rellena_x3()
Dim Fila As Integer
For Fila = 1 To [a65536].End(xlUp).Row * 3 Step 3
Range("b" & Fila) = Range("a" & (Fila + 2) / 3)
Next
End Sub

si tus datos van a iniciar en la fila 2...
cambia a algo +/- como lo siguiente:

Sub Rellena_x3()
Dim Fila As Integer
For Fila = 2 To ([a65536].End(xlUp).Row - 1) * 3 Step 3
Range("b" & Fila) = Range("a" & (Fila + 1) / 3 + 1)
Next
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.