烦请各路大神伸出你们可爱的援助之手吧

zz1031520118

需求如下：查找根据sheet1中的“湖北”，然后复制“湖北”所对应的所有行数据，到sheet2表中指定区域。


烦请各路大神伸出你们可爱的援助之手吧！！！！！！！

砂海

(菜单)数据 , 筛选
"省份" 筛选 一下 "湖北" 就好

zz1031520118

砂海 发表于 2017-8-17 09:04
(菜单)数据 , 筛选
"省份" 筛选 一下 "湖北" 就好

筛选我当然会啊哥！若是我需要分别制作31个省份的表，每个表数据上万条，还一个省一个省的筛选搞会死人的！

idnoidno

1. Option Explicit
   
2. Sub ta()
   
3. Dim ar, br, i%, j%, k%, m%
   
4. ar = [a1].CurrentRegion
   
5. ReDim br(1 To UBound(ar, 1), 1 To UBound(ar, 2))
   
6. m = Worksheets("sheet3").[d65536].End(xlUp).Row
   
7. For i = 2 To UBound(ar)
   
8.     If ar(i, 1) = "湖北" Then
   
9.             k = k + 1
   
10.             For j = 1 To UBound(ar, 2)
    
11.                 br(k, j) = Cells(i, j)
    
12.             Next j
    
13.     End If
    
14. Next i
    
15. With Worksheets("sheet3")
    
16.     .[d1].Offset(m).Resize(UBound(ar, 1), UBound(ar, 2)) = br
    
17. End With
    
18. End Sub
    

复制代码

不介意的話，以上供參

frankzhang21

写注释了，可以自己看着改改

苏子龙

frankzhang21 发表于 2017-8-17 09:38
写注释了，可以自己看着改改

再改下，可能他要这样的结果

frankzhang21

苏子龙 发表于 2017-8-17 12:03
再改下，可能他要这样的结果

厉害厉害，比我想的周到多了

Excel学徒123

苏子龙 发表于 2017-8-17 12:03
再改下，可能他要这样的结果

厉害厉害，想得那么周到