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

½Ð°Ýrange¨Ï¥Î¤è¦¡

½Ð°Ýrange¨Ï¥Î¤è¦¡

Range("" & arr(i) & 65536)³o¦Uªº¨Ï¥Î¤è¦¡§Ú¬O¦³¤@¦¸¦bª¦¤åª¦¨ìªº
¦ý¬O§Ú¤£ª¾¹D¬°¤°»ò­n³o¼Ë¼g
¥¿±`³£¬Oragne("A1") ©Ò¥H§Ú¤]·|¥H¬°" "¤¤¶¡À³¸Ó¬O­n¥]§tªF¦è
¦ý¬O²{¦b¥L«o¬O³oºØªí¹F¤è¦¡

¤U­±¬O§Ú¨Ï¥Îªº¥N½X
  1. Sub ²M°£­«½Æ()
  2.    
  3.     arr = Array("C", "D", "E", "F")
  4.     For i = LBound(arr) To UBound(arr)
  5.     For c = Range("" & arr(i) & 65536).End(xlUp).Row To 23 Step -1
  6.     If Cells(c, arr(i)) = Cells(c - 1, arr(i)) Then
  7.     Cells(c, arr(i)).Delete
  8.     End If
  9.     Next
  10.     Next
  11. End Sub
½Æ»s¥N½X
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

¦^´_ 2# stillfish00


    ªº½T¬O¤£»Ý¥[
   ¾Ç²ß¤F
   ¬Ý¨Ó¦³¨Ç°ò¥»ª¾ÃѧÚÁÙ­n¦h¤F¸Ñ
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 4# GBKEE


    ®¦
   ­n¬ÝªºªF¦è«Ü¦h
   ¹ê»Ú¹B§@¹ï§Ú¨Ó»¡¤ñ¸û®e©ö¾Ç
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD