EXCEL²M³æ¦p¦óÂà´«¦¨°]¬F³¡¹q¤lµo²¼®æ¦¡
- ©«¤l
- 46
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 73
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2018-2-12
- ³Ì«áµn¿ý
- 2025-9-17
|
¦^´_ 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 |
|
|
|
|
|
|