[求助][讨论]大家都来想办法如何用VB实现表格整体查询，进一步完善代码，问题在6楼

Long_III

修改后的难度很高，希望大家都来试试

Long_III

按我的理解做的，请看

Nflxd0Lk.rar (12.76 KB, 下载次数: 92)

2005-9-6 14:25 上传

点击文件名下载附件
[求助][讨论]用VB实现表格整体查询

，代码

Private Sub CommandButton1_Click() Dim c As Range Dim t$, k% Dim s s = Range("f1") k = 3 Application.ScreenUpdating = False Range("a:d").Clear If s = "" Then Exit Sub '如果f1空白的话，退出程序 With Sheet2 Set c = .Columns(1).Find(s, lookat:=xlPart) '按部分搜索 If Not c Is Nothing Then '如果搜索到了 t = c.Address '记录第一个的地址 Do c.CurrentRegion.Copy Cells(k, 1) '复制里面的数据过来 k = k + c.CurrentRegion.Rows.Count + 1 Set c = .Columns(1).FindNext(c) Loop Until c Is Nothing Or c.Address = t '一直到找到全部的 End If End With Application.ScreenUpdating = True End Sub

Long_III

资料怎么反倒变少了，资料多一点才能看出里面的规律啊

还有一问，是不是“(2005)03-123”，完全可以根据03-123查询啊，而不用前面的(2005)?

Long_III

表格有些地方不规范，像69行，是不是没有啊，还是“工行1-2”的一部分啊？还有315行，是不是也是跟上面的表连在一起啊？

如果是一个数对应一个小表，查询没什么问题，如果有的对应一个有的对应两个，就需要做一个详细的说明，说明它的规律是什么了