rouber590324

¸Õ¸Õ
SHEET1=¤u§@ªíB
SHEET2=¤u§@ªíA


Sub ¬d´M()
Sheet1.[B4].ClearContents
X = Sheet2.[b65536].End(xlUp).Row
For M = 2 To X
If Sheet2.Cells(M, 1) = Sheet1.Cells(4, 1) Then
  Sheet1.Cells(4, 2) = Sheet2.Cells(M, 2)
    Y = Y + 1
  End If
  Next
End Sub


Sub ­×§ïÀx¦s()
X = Sheet2.[b65536].End(xlUp).Row
For M = 2 To X
If Sheet2.Cells(M, 1) = Sheet1.Cells(4, 1) Then

  Sheet2.Cells(M, 2) = Sheet1.Cells(4, 2)
    Y = Y + 1
  End If
  Next
End Sub