Dim sh 1, sh2, sh3, sh3 as the worksheet.
Set sh 1 = Sheet 1
Name the last three tables as follows.
set sh2 = Sheets(“Anyang”)
Set sh3 = Sheets ("Shandong")
Set SH4 = Sheets ("Weifang")
m = Sheet 1。 Scope ("C65536"). End (xlUp). row
m2 = Sheet2。 Scope ("C65536"). End (xlUp). row
m3 = Sheet3。 Scope ("C65536"). End (xlUp). row
m4 = Sheet4。 Scope ("C65536"). End (xlUp). row
Use Sheet 1
For i = 1 to m
If. Cell (I, 1) = "Anyang Bao Li Economic and Trade Co., Ltd." Then,
For j = 1 to 6
sh2。 Cells(m2 + 1，j) = sh 1。 Cell (I, j)
Next J.
If ... it will be over.
If. Cells(i, 1) = "Shandong" and then "write it all by yourself.
For j = 1 to 6
sh3。 Cells(m2 + 1，j) = sh 1。 Cell (I, j)
Next J.
If ... it will be over.
If. Cells(i, 1) = "Weifang `````" and then.
For j = 1 to 6
sh4。 Cells(m2 + 1，j) = sh 1。 Cell (I, j)
Next J.
If ... it will be over.
Next, I
End with ...
End joint