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

[µo°Ý] ¿é¤J¤U¤@®æ½Æ»s¤W¤@®æªº®æ¦¡(¤G­Óªí®æ¦WºÙ)

[µo°Ý] ¿é¤J¤U¤@®æ½Æ»s¤W¤@®æªº®æ¦¡(¤G­Óªí®æ¦WºÙ)

¿é¤J¤U¤@®æ½Æ»s¤W¤@®æªº®æ¦¡
§Úµo²{®æ¦¡·|½Æ»s..¦ý©³¦â¤£·|½Æ»s
¦]¬°ªí¦³¤G­Ó¦WºÙ.¥u·|«e­±°Ê«á­±¤£°Ê

105³ø»ù½Ð´Ú¶i«×ªí.rar (17.64 KB)
excel¾Ç²ß¤¤!¿v¥X¹Ú·Q
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

¦^´_ 1# kkooo15


Sub ¥¨¶°1()

    Range("¬I¤u[[#Headers],[³ø»ù¤é´Á]]").Select
    Selection.End(xlDown).Select
    Range("B6").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("B4").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.End(xlDown).Select
End Sub

¬°¤°»òµLªk±N®æ¦¡½Æ»s....
excel¾Ç²ß¤¤!¿v¥X¹Ú·Q
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD