求助按指定条件把数据分开

杨帆远航

请按指定的条年分成两个工作表，一个表里含指定条件，不含指定条件的数据放入另一个表中，具体见附件。

Jaofuan

根据附件模拟的代码

1. Sub jaofuan()
   
2.     With Sheet1
   
3.         zr = [d22] & [d23]
   
4.         drow = .Cells(Rows.Count, 3).End(xlUp).Row
   
5.         For i = 2 To drow
   
6.             If .Cells(i, "c") & .Cells(i, "e") = zr Then [d24] = .Cells(i, "d")
   
7.         Next
   
8.     End With
   
9. End Sub

复制代码

清风竹-

请看附件。

花发蝶先知

Option Explicit
Sub tiqu()
Dim m As Integer '???
Dim s As Integer '????
s = Sheet1.[c1].End(xlDown).Row
For m = 1 To s
    If Cells(m, "C") = Cells(22, "D") And Cells(m, "E") = Cells(23, "D") Then
        Cells(24, "D") = Cells(m, "D")
    End If
Next
End Sub

cui26896

Option Explicit

Sub test()
  Dim i&, j&, arr
  Dim d As Object
  Set d = CreateObject("scripting.dictionary")
  arr = Range("c2:e20")
  For i = 1 To UBound(arr)
    d(arr(i, 1) & arr(i, 3)) = Array(arr(i, 2), arr(i, 3))
  Next
    If d.exists(Range("d22") & Range("d23")) Then
      Range("d24").NumberFormat = "@"
      Range("d24") = d(Range("d22") & Range("d23"))
    End If
End Sub