|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub test()
- Dim myr1 As Range
- Dim myr2 As Range
- ar = [Y3].End(4).Row
- For i = 3 To ar
- If Cells(i, "AD") = "厨房" Then
- If myr1 Is Nothing Then
- Set myr1 = Cells(i, "Y").Resize(1, 6)
- Else
- Set myr1 = Union(myr1, Cells(i, "Y").Resize(1, 6))
- End If
- Else
- If myr2 Is Nothing Then
- Set myr2 = Cells(i, "Y").Resize(1, 6)
- Else
- Set myr2 = Union(myr2, Cells(i, "Y").Resize(1, 6))
- End If
- End If
- Next
- myr1.Copy [AR3]
- myr2.Copy [AI3]
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|