ªð¦^¦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¸Ñ

¦^´_ 1# freeffly
Range("" & arr(i) & 65536)  ¦P  Range(arr(i) & 65536)
¤£»Ý­n¥[

--------------------------------------------------------
"" ªí¥ÜªÅ¦r¦ê
¦p:   "" & 123   
       ¥u¬O­n§â  ¼Æ¦rªº 123¶Ç´«¦¨¦r¦êªº "123"
       ·N¸qµ¥¦P CStr(123)

TOP

¦^´_ 2# stillfish00


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

TOP

¦^´_ 3# freeffly
¦h¬Ý¬ÝVBA¤¤¹Bºâ¤lªº»¡©ú
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE


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

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD