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

[µo°Ý] ¬O§_¥i¥[³t·j´Mªº³t«×

¥»©«³Ì«á¥Ñ shuo1125 ©ó 2023-11-28 14:49 ½s¿è

¦^´_ 10# Andy2483
·PÁÂAndy¤j¤À¨ÉFor Each¥t¸Ñ¡A­ì¨ÓxlCellTypeConstants¥]§t±`¼ÆªºÀx¦s®æ¤]¯à³o¼Ë¨Ï¥Î¡A
¥H¤U¦³¿ù¦b·Ð½Ð«ü¥¿¡C

        ' ¹M¾ú xA ¤¤ªº¨C¤@­ÓÀx¦s®æ¡A±Æ°£¼ÐÃD
    For Each A In xA.Offset(1, 0).SpecialCells(2)
        ' ¦b¦r¨å¤¤²K¥[¶µ¥Ø¡AÁ䬰A ­È¬°xA
        Z(A.Value) = xA.Cells(1, A.Column).Value
    Next A

TOP

¦^´_ 11# shuo1125


    ÁÂÁ«e½ú¤@°_¾Ç²ß

       ' ¡õ¹M¾ú xA ¤¤ªº¼ÐÃD¤U¤è¨C¤@­Ó«DªÅ®æÀx¦s®æ¡A
    For Each A In xA.Offset(1, 0).SpecialCells(2)
        ' ¡õ¦b¦r¨å¤¤²K¥[¶µ¥Ø¡AKey¬°AÀx¦s®æ­È ,Item¬°AÀx¦s®æ©Ò¦bÄæ¦ì¼ÐÃD¦Cªº¼ÐÃD­È
        ' ¡õA¬O³q¥Î«¬ÅܼÆ,¦b¦¹³B¬Oª«¥ó(Àx¦s®æ),©Ò¥H­n¥HAªº­È¯Ç¤J¦r¨å,©Ò¥H­n¥[.Value©Î¥[ & ""

        Z(A.Value) = xA.Cells(1, A.Column).Value
    Next A
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD