请高手帮忙，按要求提取部分内容到Sheet2

春天的打火机 · 发表于 2023-6-30 11:35

小花鹿 · 发表于 2023-6-30 12:30

要求太多，只写了提取
Sub test()
Dim ar, br, i&, m&
ar = Sheet1.Range("a1").CurrentRegion
ReDim br(1 To UBound(ar), 1 To 8)
For i = 2 To UBound(ar)
      If ar(i, 8) = "成品" Or ((ar(i, 8) = "版单") * (ar(i, 16) <> "")) Then
         m = m + 1
         br(m, 1) = ar(i, 7)
         br(m, 2) = ar(i, 14)
         br(m, 3) = ar(i, 10)
         br(m, 4) = ar(i, 11)
         br(m, 6) = ar(i, 16)
         br(m, 7) = ar(i, 20)
      End If
Next i
Sheet2.Range("a4").Resize(m, 8) = br
End Sub

笨鸟飞不高 · 发表于 2023-6-30 13:07

export1.zip (23.02 KB, 下载次数: 15)

ykcbf1100 · 发表于 2023-6-30 13:34

附件供参考。。。

ericxzhou · 发表于 2023-6-30 13:34

春天的打火机 · 发表于 2023-6-30 14:41

本帖最后由春天的打火机于 2023-6-30 15:38 编辑

笨鸟飞不高发表于 2023-6-30 13:07

2楼大神厉害，速度快，谢谢！

笨鸟飞不高 · 发表于 2023-6-30 14:48

春天的打火机发表于 2023-6-30 14:41
2楼大神厉害，但是最下面丢掉了制表和名字，我加进去显示错误，这里应该怎么加

这行手动添加吧！张三也是固定的？？

		自动登录	找回密码
密码			免费注册

[求助] 请高手帮忙，按要求提取部分内容到Sheet2

评分

评分

评分