ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

EXCEL²M³æ¦p¦óÂà´«¦¨°]¬F³¡¹q¤lµo²¼®æ¦¡

¦^´_ 6# VANESSA


   Sub ¸ü¤J()
Dim xR As Range, xH As Range, T$
[¤u§@ªí2!A1:L3000].ClearContents
[¤u§@ªí1!A1].Resize(1, 5).Copy [¤u§@ªí2!A1:E1]  ''<---·s¼W³o¤@¬q
Set xH = [¤u§@ªí2!A2]
Application.ScreenUpdating = False
For Each xR In Range([¤u§@ªí1!A1], [¤u§@ªí1!A65536].End(xlUp))
    If xR <> "M" Then GoTo 101
    If xR(1, 2) <> T Then
       xR.Resize(1, 12).Copy xH
       Set xH = xH(2):  T = xR(1, 2)
    End If
    xR(1, 16).Resize(1, 6).Copy xH
    Set xH = xH(2)
101: Next
End Sub

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD