EXCEL²M³æ¦p¦óÂà´«¦¨°]¬F³¡¹q¤lµo²¼®æ¦¡
- ©«¤l
- 2798
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2854
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-4-15
|
ªí¨µ§¼Æ¤£©w, ¥Îvba§a!
¼W¥[¤@Ó¤u§@ªí2:
Sub ¸ü¤J()
Dim xR As Range, xH As Range, T$
[¤u§@ªí2!A1:L3000].ClearContents
Set xH = [¤u§@ªí2!A1]
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
Xl0000322.rar (11.59 KB)
|
|
|
|
|
|
|