Vba toma el nombre de la región

Según su pregunta, le escribí un fragmento de código en los datos a continuación. En excel 2003, la prueba pasa.

A B

Fruta Sandía

Mango

Lichi

Verdura Calabaza

Invierno melón

Melón de invierno

Zhongwa

Pollo mascota

Pato Dios mío

Ganso

Goldfish

El siguiente es el código:

Botón de subcomando privado 1_Click()

Hoja ("hoja1"). Celda(1,10). Valor = "=counta(b:b)"

z =hoja("hoja1"). Celda(1,10). Valor

"X=0" registra el número de filas presentes en ambas categorías.

Y = " " 'Concatenar cadenas

Para i = 1 a z

Si hoja("hoja1"). Celda(I,1). valor >0 y hoja ("hoja1"). celda(I,2). Valor & gt entonces 0

Si x & gt0 y Len(y)>entonces 0

Rango(" B " & ampx & amp":B " & ampi - 1). Elegir

Tener opciones

. horizontal-align=normal

. Alineación vertical = xlTop

. WrapText = Verdadero

. Dirección = 0°

. AddIndent = Falso

. Nivel de sangría = 0

. ShrinkToFit = Falso

. Orden de lectura = xlContext

. MergeCells = True

Termina con...

Hoja("hoja1"). celda(x,2). Valor = Izquierda(y, Len(y) - 1)

Terminará si...

x = i

y = hoja de trabajo(" hoja1 " ). celda(I,2). Valor y valor. ","

Terminará si...

Si la hoja("hoja1"). Celda(I,1). Valor = 0 y hoja ("hoja1"). celda(I,2). valor & gt entonces 0

y = y & ampsheet("hoja1"). celda(I,2). Valor y valor. ","

Terminará si...

Hoja ("hoja1"). celda(I,2). valor = " "

Siguiente i

Si x & gt0 y Len(y)> entonces 0

Rango(" B " & ampx & amp" : B "&i). Elegir

Tener opciones

. horizontal-align=normal

. Alineación vertical = xlTop

. WrapText = Verdadero

. Dirección = 0°

. AddIndent = Falso

. Nivel de sangría = 0

. ShrinkToFit = Falso

. Orden de lectura = xlContext

. MergeCells = True

Termina con...

Hoja("hoja1"). celda(x,2). Valor = Left(y, Len(y) - 1)

Terminará si...

Finalizar conector

Si tiene alguna pregunta, envíela a Llegó una carta a mi buzón.