-excel vb源代码,vb源代码网站

你试试这个zhidao代码吧。在Sheet1也就是zhengli工作表中建一个Commandbutton1，添加如下代码，版单击按钮看看效果。如果你想要文权件也可以给你。
==============================
Private Sub CommandButton1_Click()
Dim s As String, t As String, w As Worksheet
For i = 10 To 1000
t = Range("K" & i).Text
If Len(t) = 0 Then Exit For
Sheet1.Rows(i).Copy
If InStr(1, s, t) = 0 Then
s = s & t
Set w = Worksheets.Add
w.Name = t
Sheet1.Paste w.Rows(i)
Else
Sheet1.Paste Worksheets(t).Rows(i)
End If
Next
End Sub