½Ð°Ý¦p¦ó§â¨âÄ檺¸ê®Æ¦X¨Ö?

CYC

¸ê®Æ¦p¤U

   ½Ð°Ý¦U¦ì~~ ¦p¦ó§âc©MdÄæ¦ì¸ê®Æ¦X¨Ö,µM«áµ²ªG©ñ¦bcÄæ¦ì,DÄæ¦ìªº¸ê®Æ«h§â¥L§R°£

   ¬O¥ÎFOR °j°é ·í¬Ý¨ìdÄæ¦ì¦³­È®É,¼g¨ìc µM«á¦A§R°£d¹À? ½Ð°Ý¦³§ó¦nªº¤èªk¹À? ÁÂÁÂ


   

¤U¸ü (5.03 KB)

2011-8-7 20:07

  ÂàÅܬ°  

¤U¸ü (5.89 KB)

2011-8-7 20:08

GBKEE

¦^´_ 1# CYC

1. Sub Ex()
   
2.      With Range("D:D").SpecialCells(xlCellTypeConstants)
   
3.         .Copy Range("C65536").End(xlUp).Offset(1)
   
4.         .Value = ""
   
5.     End With
   
6. End Sub

½Æ»s¥N½X

oobird

[c:c].SpecialCells(4).Delete (1)

CYC

ÁÂÁÂ¥H¤W¨â¦ì~~·PÁÂ

CYC

¦^´_ 4# CYC


    ½Ð°Ý¦pªG¬O¦³¨âÄæ¥æ¿ùªº±¡ªp©O?  ÁÂÁÂ

  ¦p :

           ¥Ò
                                       a
                                       b
           ¤A
                                       c
                                       d
           ¤þ

GBKEE

¦^´_ 5# CYC

1. Sub Ex()
   
2.     Dim A
   
3.     With Range("C:C").SpecialCells(xlCellTypeConstants)
   
4.         A = Split(.Address, ",")
   
5.         Range(A(0), A(UBound(A))).SpecialCells(xlCellTypeBlanks).Delete
   
6.         With Range("D:D").SpecialCells(xlCellTypeConstants)
   
7.             .Copy Range("C65536").End(xlUp).Offset(1)
   
8.             .Value = ""
   
9.         End With
   
10.     End With
    
11. End Sub

½Æ»s¥N½X

hugh0620

¦^´_ 5# CYC

§Ç1~2 ¬O¥ý§PÂ_FOR¦Ü¤Ö­n¶]´X°é
§Ç3~8 °õ¦æ°²¦pCÄæ¦ì¨S¦³¸ê®Æ´N±a¥XDÄæ¦ì¸ê®Æ¨Ã§R°£DÄæ¦ì¸ê®Æ

1. A = Range("C65536").End(xlUp).Row
   
2. B = Range("D65536").End(xlUp).Row
   
3. For I = 1 To Application.Max(A, B)
   
4.     If Range("C" & I) = "" Then
   
5.        Range("C" & I) = Range("D" & I)
   
6.        Range("D" & I).Clear
   
7.     End If
   
8. Next

½Æ»s¥N½X