[µo°Ý] ½Ð°Ý¦U¦ì«e½úÃö©óVBA °}¦C¨ú¥N°ÝÃD

ii31sakura

¤£¦n·N«ä¡B½Ð°Ý¤@¤U¦U¦ì«e½ú­Ì~¤p§Ìªºªþ¥ó¤¤¦³¨â­Ó¤À­¶¡B¤@­Ó¬OData¡B¤@­Ó¬OÂà´«­¶¡A
½Ð°Ý¦pªG¤p§Ì·Q­n±NData¤¤¦UÄæ¦ì¤U¤è¦³¼Æ­ÈªºÄæ¦ì¬Ò¨ú¥N¦¨¼Æ­È"1"¡A
¦p²{¦bÂà´«­¶©ÒÅã¥Üªº±¡ªp¡B½Ð°Ý¤p§Ì¸Ó¦p¦ó¨Ï¥Î°}¦C§ï¼g©O¡H¡H

¦A½Ð³Â·ÐÀ°¦£«e½ú«ü¾É¤@¤U¡BÁÂÁÂ~


array test1.rar (14.3 KB)

¤U¸ü¦¸¼Æ: 6

2014-6-13 15:59

stillfish00

¦^´_ 1# ii31sakura
Sub Test()
  With Sheets("Data").[A1].CurrentRegion
    .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).SpecialCells(xlCellTypeConstants, xlNumbers).Value = 1
  End With
End Sub

GBKEE

¦^´_ 2# stillfish00
¥i²¤Æ

1. Sub Test()
   
2.   With Sheets("Data").[A1].CurrentRegion
   
3.     .Offset(1, 1).SpecialCells(xlCellTypeConstants, xlNumbers).Value = 1
   
4.   End With
   
5. End Sub

½Æ»s¥N½X

ii31sakura

¦^´_ 3# GBKEE


    ·PÁÂstillfish00»PGBKEE«e½úªº«ü¾É¡B¨â¦ìªº¤èªk¹ï¤p§Ì¨Ó»¡³£¬O¦³¥Îªº¡A
    §Ú·|¦n¦nªº¾Ç²ß¡B·PÁ¨â¦ì«e½ú~

stillfish00

¦^´_ 3# GBKEE
¤]¹ï¡AÁÂÁ´£¿ô¡C