请教怎样可以自动提取2表内包含武隆的D列所有单元格

重庆可乐鸡翅膀

请教怎样可以自动提取未回回单明细表内包含武隆的D列所有单元格内容，然后显示在武隆表的19行红色区域内（如武隆7126-2谋城等，或者整行也可以的，但是不能太长了，是全部按行显示出文本格式的）谢谢了 2018年3月新表加盟点手续费计算表 - 副本.zip (26.46 KB, 下载次数: 7)

2018-4-3 21:49 上传

点击文件名下载附件

abc123281

1. Sub test()
   
2. Dim arr, brr(1 To 10000, 1 To 4)
   
3. With Worksheets("未回回单明细")
   
4.   rw = .[a65536].End(xlUp).Row
   
5.   arr = .Range("a2:d" & rw)
   
6.     For i = 1 To UBound(arr)
   
7.       If InStr(arr(i, 4), "武隆") Then
   
8.          n = n + 1
   
9.          For j = 1 To 4
   
10.            brr(n, j) = arr(i, j)
    
11.          Next
    
12.       End If
    
13.     Next
    
14. End With
    
15. With Worksheets("武隆")
    
16.   .[b19].Resize(n, 4) = brr
    
17. End With
    
18. End Sub

复制代码

abc123281

2018年3月新表加盟点手续费计算表 abc123.rar (34.56 KB, 下载次数: 2)

2018-4-3 22:36 上传

点击文件名下载附件

重庆可乐鸡翅膀

十分感谢，请问我还有很多个地方，怎么办呢？一共有37个呢。怎么用宏操作呢？

重庆可乐鸡翅膀

1.zip (160.75 KB, 下载次数: 0)

2018-4-3 23:28 上传

点击文件名下载附件

请问一下，这种多个地方怎么处理呢？还是没有看明白宏的工作原理

ardu95

学习了。