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

[µo°Ý] ¦p¦ó³]©w«ö¶s´¡¤J¦p¹Ï±Æ§Ç

[µo°Ý] ¦p¦ó³]©w«ö¶s´¡¤J¦p¹Ï±Æ§Ç

¤pªZ

¦^´_ 1# show5217

¦p¦ó³]©w«ö¶s´¡¤J¦p¹Ï±Æ§Ç.zip (168.5 KB)

    Sub test_20190914()
    '½T»{ Åã¥Üµ²ªG ªº³Ì«á¤@Äæ¦ì¸m
    ROW1 = Sheets("Åã¥Üµ²ªG").Cells(Rows.Count, "A").End(3).Row
   
    '¦pªG³Ì«á¤@Äæ > 1ªí¥Ü¦³¸ê®Æ
    If ROW1 > 1 Then
        '±N¸ê®Æ²M°£
        Sheets("Åã¥Üµ²ªG").Range("A2:A" & ROW1).Clear
    End If
   
    'Åã¥Üµ²ªG ¥Ñ²Ä2¦C¶}©l===================
    k = 2
    '§PÂ_AÄ檺³Ì«á¤@­Ó¦ì¸m
    ROW2 = Cells(Rows.Count, "A").End(3).Row
   
    '¦Cªº°j°é==========
    For i = 1 To ROW2
        'Ä檺°j°é==========
        For j = 1 To 2
            '±NÄæ¦ìªº­È µ¹ Åã¥Üµ²ªG ªºÄæ¦ì
            Sheets("Åã¥Üµ²ªG").Cells(k, "A").Value = Cells(i, j).Value
            '©¹¤U¥[¤@Äæ
            k = k + 1
        Next
    Next

End Sub

TOP

¦^´_ 2# kim223824


    ÁÂÁ¤j­ô«Ü¹ê¥Î«Ü¸Ô²Óªº±Ð¾Ç ¨ü±Ð¤F!
¤pªZ

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD