¿Cómo utilizar VBA para descomponer los datos en EXL en diferentes archivos de tabla por palabras clave y nombrarlos con palabras clave?
Atenuar sh1, sh2, sh3, sh3 como hojas de trabajo
Establecer sh1 = Hoja1
Nombra las últimas tres tablas de la siguiente manera.
establecer sh2 = Sábanas("Anyang")
Establecer sh3 = Sábanas("Shandong")
Establecer SH4 = Sábanas("Weifang") p>
p>
m = Hoja1. rango(" C65536 "). final (xlArriba). Fila
m2 = Hoja2. rango(" C65536 "). final (xlArriba). Fila
m3 = Hoja3. rango(" C65536 "). final (xlArriba). Fila
m4 = Hoja4. rango(" C65536 "). final (xlArriba). Fila
Utilice la Hoja1
para i = 1 a m
si. Celda (I, 1) = "Anyang Baoli Economic and Trade Co., Ltd." entonces
Para j = 1 a 6
sh2. Celdas(m2 + 1, j) = sh1. Celda (I, j)
Siguiente j
Terminará si...
Si. Cells(i, 1) = "Shandong` `" Luego 'escríbelo todo tú mismo.
Para j = 1 a 6
sh3. Celdas(m2 + 1, j) = sh1. Celda (I, j)
Siguiente j
Terminará si...
Si. Celdas(i,1) = "Weifang````" entonces.
Para j = 1 a 6
sh4. Celdas(m2 + 1, j) = sh1. Celda (I, j)
Siguiente j
Terminará si...
Siguiente i
Terminará con...
Conector final