Red de conocimiento informático - Conocimiento del nombre de dominio - Cómo usar vba para dividir datos en exl en diferentes archivos de hojas de trabajo por palabras clave y nombrarlos con palabras clave

Cómo usar vba para dividir datos en exl en diferentes archivos de hojas de trabajo por palabras clave y nombrarlos con palabras clave

Sub fenlei()

Dim sh1, sh2, sh3, sh3 como hoja de trabajo

Establecer sh1 = Hoja1

'Nombra las siguientes tres tablas de la siguiente manera

Establecer sh2 = Sábanas("Anyang")

Establecer sh3 = Sábanas("Shandong")

Establecer SH4 = Sábanas("Weifang")

m = Sheet1.Range("C65536").End(xlUp).Row

m2 = Sheet2.Range("C65536").End(xlUp).

m3 = Sheet3.Range("C65536").End(xlUp).Row

m4 = Sheet4.Range("C65536").End(xlUp).Row

Con Sheet1

Para i = 1 To m

Con Hoja2.> If.Cells(i, 1) = "Anyang Libao Economic and Trade Co., Ltd." Entonces

Para j = 1 a 6

sh2.Cells(m2 + 1, j) = sh1.Cells(i, j)

Siguiente j

Fin si

Si .Cells(i, 1) = "Shandong``"Entonces 'escribe todo tú mismo

Para j = 1 a 6

sh3.Cells(m2 + 1, j) = sh1.Cells(i, j)

Siguiente j

Fin si

Para j = "Shandong ``"Entonces 'escribe todo tú mismo

Para j = 1 a 6

sh3.Cells(m2 + 1, j) = sh1.Cells(i, j)

Siguiente j

Fin si

Para .p>

Para j = 1 a 6

sh4.Cells(m2 + 1, j) = sh1.Cells(i, j)

Siguiente j

Fin si

Siguiente i

Terminar con

Fin del subtítulo