Hsieh

¦^´_ 1# b9208


    Set B = .Columns("A").Find(A, lookat:=xlWhole).Offset(, 6)'¦baÄæ§ä¨ìA­Èªº¦ì¸m¦V¥k6®æªº¦ì¸m³]µ¹ÅܼÆB
      A.Offset(, 2).Resize(, 24).Copy B.Offset(d(A.Value), 0)   'AÀx¦s®æ¦V¥k2®æÂX®i¦¨1¦C24Äæ½d³ò½Æ»s¨ìBÀx¦s®æ¦V¤U¦ì²¾d(A.Value),¦Cªº¦ì¸m

Hsieh

«D±`·PÁ¤G¦ì«e½ú«ü¾É
Set B = .Columns("A")³o¸ÌA¬O«ü Sheets(Sh)¤ºÀx¦s®æ)
A.Offset...(³o¸ÌA¬O«ü Shee ...
b9208 µoªí©ó 2010-5-27 17:43

   ¿ù!
Set B = .Columns("A")¬OWith Sheets("Dh")°Ï¬q¤ºªº±Ô­z
.Columns("A")´N¬O Sheets("Dh").Columns("A")ªº·N«ä
¬OSheets("Dh")ªºAÄæ
A.Offset³o¸ÌªºA¬OSheets("Sh").Range(.[B7], .[B65536].End(xlUp))ªº¨C¤@®æ

Hsieh

¦^´_ 6# b9208


    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¬õ¦r¬OSheets(Dh)°Ï¬q
ÂŦâ¦r¬OSheets(Sh)°Ï¬q
©Ò¥HFor Each A In .Range(.[B7], .[B65536].End(xlUp))
³o­ÓA¬OÅܼƬOSheets(Sh).Range(.[B7], .[B65536].End(xlUp))ªº¨C­ÓÀx¦s®æ