- ©«¤l
- 16
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 65
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2019-2-19
- ³Ì«áµn¿ý
- 2023-10-27
|
¥»©«³Ì«á¥Ñ vuptp6 ©ó 2019-7-7 16:35 ½s¿è
ɪ©¸ß°Ý
§Ú¿W¥ß¼g¤@Ó¥¨¶°
sub aaa()
SendKeys "{DOWN 10}"
end sub
¬O¦³¿ìªk¥¿½T°õ¦æ
¥i¬O¥Î©I¥s©ÎµÛ¼g¤J¨ä¥L¥¨¶°¸Ì´N¤£¥¿½T¤F
¨Ò¦pA
Sub bbb()
For i = 1 To 10
MsgBox ActiveCell.Value
aaa
Next
End Sub
¨Ò¦pB
Sub bbb()
For i = 1 To 10
MsgBox ActiveCell.Value
SendKeys "{DOWN }"
Next
End Sub
¬°¬Æ»ò·|³o¼Ë·d¤£À´
¸É¥R:¥i¬O³o¼Ë¤S¥i¥H
Sub ¿ï¾Ü¥iµø°Ï°ì()
For i = Range("A1048576").End(xlUp).Row - 1700 To 1 Step -1
If Range("A" & i - 1) <> Range("A" & i) Then
Range("A" & i).Select
SendKeys "{DOWN}"
...
...
...
Exit For
End If
Next
End Sub |
|