请教：在“客户查询”表格E2中输入“北京”时，从“汇总台帐 ”B列中提取含有“北...

指尖的阳光、

请教：在“客户查询”表格E2中输入“北京”时，从“汇总台帐 ”B列中提取含有“北京”的所有行数值，如附件。同样在“担保人查询”表格E2中输入“黑龙江”时，从“汇总台帐 ”H列中提取含有“黑龙江”的所有行数值，如附件。谢谢。

ykcbf1100

客户查询，担保人查询代码差不多的。

ykcbf1100

本来简单，但楼主挖了好几个坑。

1. Sub ykcbf()   '//2024.8.12   客户查询
   
2.     Application.ScreenUpdating = False
   
3.     With Sheets("汇总台帐 ")
   
4.         r = .Cells(Rows.Count, 1).End(3).Row
   
5.         c = .Cells(3, "XFD").End(1).Column
   
6.         arr = .[a1].Resize(r, c)
   
7.     End With
   
8.     ReDim brr(1 To 1000, 1 To 18)
   
9.     ReDim crr(1 To 1000, 1 To 18)
   
10.     On Error Resume Next
    
11.     With Sheets("客户查询")
    
12.         st = .[e2].Value
    
13.         For i = 6 To UBound(arr)
    
14.             If InStr(arr(i, 2), st) Then
    
15.                 m = m + 1
    
16.                 For j = 1 To 18
    
17.                     brr(m, j) = arr(i, j)
    
18.                 Next
    
19.                 For j = 19 To 29
    
20.                     crr(m, j - 18) = arr(i, j)
    
21.                 Next
    
22.                 For j = 30 To c
    
23.                     crr(m, j - 15) = arr(i, j)
    
24.                 Next
    
25.             End If
    
26.         Next
    
27.         .[a5].Resize(6, 100) = ""
    
28.         .[a12].Resize(6, 100) = ""
    
29.         .[a5].Resize(m, 18) = brr
    
30.         .[b12].Resize(m, 17) = crr
    
31.     End With
    
32.     Application.ScreenUpdating = True
    
33.     MsgBox "OK！"
    
34. End Sub
    

复制代码

指尖的阳光、

ykcbf1100 发表于 2024-8-12 19:47
客户查询，担保人查询代码差不多的。

十分感谢，给我解决了大问题。

指尖的阳光、

我在“客户查询”页增加了96行，怎么查询结果位置不对（见附件），还请指教，谢谢。

skiss

指尖的阳光、 发表于 2024-8-13 09:53
我在“客户查询”页增加了96行，怎么查询结果位置不对（见附件），还请指教，谢谢。

两个代码的名称一样，修改一下名称就行，sub xxxx（）

指尖的阳光、

skiss 发表于 2024-8-13 09:56
两个代码的名称一样，修改一下名称就行，sub xxxx（）

改了，但在“客户查询”页，查询“北京公司”个数不全，且第十二行及以下各行应在106行开始出现数据，请教一下，谢谢。

指尖的阳光、

已解决，谢谢各位。