把符合条件的工作表信息复制到另一个表中

全党

把符合条件的工作表信息复制到另一个表中

全党

小白急用，谢谢大神！

lushang2018

试一试这样行不行？不太明白你的意思

shiruiqiang

Sub text()
Dim arr, brr
Dim x, y, k
arr = Sheets(1).UsedRange
ReDim brr(1 To UBound(arr), 1 To 14)
For x = 4 To UBound(arr)
If InStr(arr(x, 4), "建投公司") > 0 And InStr(arr(x, 6), “封控") > 0 Then
k = k + 1
brr(k, 1) = arr(x, 1)
brr(k, 2) = arr(x, 2)
brr(k, 3) = arr(x, 3)
brr(k, 4) = arr(x, 7)
brr(k, 5) = arr(x, 8)
brr(k, 6) = arr(x, 9)
brr(k, 7) = arr(x, 10)
brr(k, 8) = arr(x, 11)
brr(k, 9) = arr(x, 12)
brr(k, 10) = arr(x, 13)
brr(k, 11) = arr(x, 14)
brr(k, 12) = arr(x, 15)
brr(k, 13) = arr(x, 16)
brr(k, 14) = arr(x, 17)
End If
Next
Sheets(2).[a4].Resize(k, 14) = brr
End Sub

全党

lushang2018 发表于 2022-11-27 12:11
试一试这样行不行？不太明白你的意思

是这个意思，太感谢了！只是表头怎么没有啦

Hontyu

..............

Hontyu

楼主请为每个回贴者点下右下角的评分,论坛因你而更精彩

全党

Hontyu 发表于 2022-11-27 13:14
..............

感谢

全党

全党 发表于 2022-11-27 13:10
是这个意思，太感谢了！只是表头怎么没有啦

我是想按照D列“建投公司”和F列“封控”这两个条件同时满足筛选的，你给的是按照D列“建投公司筛选的，麻烦您再给修改一下吧。再次致谢！

全党

lushang2018 发表于 2022-11-27 12:11
试一试这样行不行？不太明白你的意思

我是想把同时满足D列“建投公司”F列“封控”的人员信息筛选出来，您给的只是按照D列“建投公司”筛选的，麻烦您再给修改一下吧，再次致谢！