2007ªºVBA µLªk¦b2003 ¨Ï¥Î?

zero1019

½Ð°Ý¦U¦ì~~
2007ªºVBA¦p¤U

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sht As Worksheet
Dim Rng As Range, RngA, CR As Boolean
Set Sht = Sheets("¦b³~ªÑ§Q")
Set RngA = Cells(Target.Row, 1)
If Not Intersect(Target, [A:I]) Is Nothing And _
                            RngA <> "" And RngA(1, 6) <> "" Then
    For Each Rng In Range(Cells(Target.Row, 1), Cells(Rows.Count, 1).End(3))
        CR = IsNumeric(Evaluate("match(" & Rng.Address & "&" & Rng(, 2).Address & _
            ",¦b³~ªÑ§Q!a:a&¦b³~ªÑ§Q!b:b,0)"))
        If Not CR Then _
            Rng.Resize(, 9).Copy Sht.Range("A" & Rows.Count).End(3).Offset(1)
    Next
End If
Application.CutCopyMode = False
End Sub



¦b2003ª©¥»µLªk¥¿±`¹B§@~~½Ð°Ý­n¦p¦ó­×¥¿@@
·PÁ¦U¦ì~~

bobomi

¨S°ÝÃD§r , ¨S¥X¿ù