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

½Ð°Ý¥u­n¦b³æ¼ÆÀx®æ1,3,5.¡K51¼g¤J

  1. Sub a1()
  2. Dim x As Integer
  3.     For x = 1 To 51 Step 2
  4.         Cells(x, 1) = x
  5.     Next x
  6. End Sub
½Æ»s¥N½X
¦V°ª¤â学习

TOP

¦^´_ 3# ¦Û§Ú·Pı¨}¦n
  1. Sub a1()
  2.     For x = 1 To 800 Step 2
  3.     ActiveCell.Offset(2, 0).ClearContents
  4.     Next x
  5. End Sub
½Æ»s¥N½X
.Range("A1")这个¦ü¥G¬O¦h§E¥N码¡H¡H¡H
¦V°ª¤â学习

TOP

¦^´_ 6# ¦Û§Ú·Pı¨}¦n
还¬O¥i¥H¥h±¼Select¡A¦bVBA¤¤¨Ï¥ÎSelect©MActivate会¤j¤j­°§C执¦æ®Ä²v
  1. Sub a1()
  2.     For x = 1 To 802 Step 2
  3.     Application.ScreenUpdating = False
  4.     Cells(x, 1).ClearContents
  5.     Next x
  6.     Application.ScreenUpdating = True
  7. End Sub
½Æ»s¥N½X
¦V°ª¤â学习

TOP

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