excel达到这样的效果（要VB源码）

来源：百度知道 编辑：UC知道 时间：2024/05/22 05:55:51
如图，根据数据，建立相应的表格，写入满足条件的值。
最好有点注释，让我看的懂，嘿嘿……
http://zengqh0314.qupan.com/1663789.html这个是下载这个表格的地址
忘记了说了，实际我的表格里还含有其它的表格。
四楼的你可不可以不删除其它的页呀。你那是VBA有代码，嘿嘿。。我分好以后还要分别读取每个表格里面的数据，再应该怎么去写……

你试试这个代码吧。在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

'根据反馈，作了修改，可在保留原数据的情况下完成所需工作。
'假设保存数据的EXCEL文件名为Book1.xls，则运行下面代码即可完成你所需要的统计工作：

Option Explicit
Private Sub Command1_Click()
Dim S As String, i As Long, j As Long, k As Long, js As Long
Dim rows As Long, cols As Long
Dim xlApp
Dim xlBook
Dim xlSheet, xlSheet1
Dim FileName As String, ExitComment As Boolean
Dim CountSheets As Integer, JobName As String

FileName = App.Path & "