½Ð±Ð¥¨¶°ªº»y·N

b9208

¦U¦ì¥ý¶i¦n¡I
½Ð±Ð¤U¦C¦¡¤l¤¤¡ASet B¤ÎA.Offset(, 2)³o¤G¦æªº·N«ä¬°¦ó¡H

With Sheets(Sh)
If Application.CountA(.Range("B7:B65536")) = 0 Then
    For Each A In .Range(.[B7], .[B65536].End(xlUp))
      With Sheets(Dh)
       d(A.Value) = d(A.Value) + 1
      Set B = .Columns("A").Find(A, lookat:=xlWhole).Offset(, 6)
      A.Offset(, 2).Resize(, 24).Copy B.Offset(d(A.Value), 0)     
     End With
    Next A
  End If
End With

«D±`·PÁÂ

b9208

«D±`·PÁ¤G¦ì«e½ú«ü¾É
Set B = .Columns("A")³o¸ÌA¬O«ü Sheets(Sh)¤ºÀx¦s®æ)
A.Offset...(³o¸ÌA¬O«ü Sheets(Sh)¤ºÀx¦s®æ¸ê®Æ) .Copy B.Offset (³o¸ÌB¬O«ü Sheets(Dh)¤ºRange)
ÁÂÁÂ

b9208

Set B = .Columns("A").Find(A, lookat:=xlWhole).Offset(, 6)
'¦baÄæ§ä¨ìA­Èªº¦ì¸m¦V¥k6®æªº¦ì¸m³]µ¹ÅܼÆB
¤W­z¤¤¡ªaÄ桪¤Î¡ªA­È¡ª³£¬O¦bWith Sheets("Dh")°Ï¬q¤º¶Ü¡H
¤£²z¸Ñ¡ª¦baÄæ§ä¨ìA­Èªº¦ì¸m¡ª

b9208

·PÁ«ü¾É
§Ú§â Columns("A") »P Each A¡A«eªÌAÄæ¡A«áªÌÅܼÆA¡C
¦p§âÅܼÆA§ï¬°ÅܼÆH¡AÀ³¸Ó¤ñ¸û²M·¡¡C
With Sheets(Sh)
If Application.CountA(.Range("B7:B65536")) = 0 Then
    For Each H In .Range(.[B7], .[B65536].End(xlUp))
      With Sheets(Dh)
      d(H.Value) = d(H.Value) + 1
      Set B = .Columns("A").Find(H, lookat:=xlWhole).Offset(, 6)
      H.Offset(, 2).Resize(, 24).Copy B.Offset(d(H.Value), 0)      
      End With
    Next H
  End If
End With