Dim sh1, sh2, sh3, sh3 As Worksheet
Set sh1 = Sheet1
'分別將後面三表起名如下
Set sh2 = Sheets("安陽")
Set sh3 = Sheets("山東")
Set SH4 = Sheets("濰坊")
m = Sheet1.Range("C65536").End(xlUp).Row
m2 = Sheet2.Range("C65536").End(xlUp).Row
m3 = Sheet3.Range("C65536").End(xlUp).Row
m4 = Sheet4.Range("C65536").End(xlUp).Row
With Sheet1
For i = 1 To m
If .Cells(i, 1) = "安陽利寶經貿有限公司" Then
For j = 1 To 6
sh2.Cells(m2 + 1, j) = sh1.Cells(i, j)
Next j
End If
If .Cells(i, 1) = "山東``" Then '自己寫全
For j = 1 To 6
sh3.Cells(m2 + 1, j) = sh1.Cells(i, j)
Next j
End If
If .Cells(i, 1) = "濰坊````" Then
For j = 1 To 6
sh4.Cells(m2 + 1, j) = sh1.Cells(i, j)
Next j
End If
Next i
End With
End Sub