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

[µo°Ý] ¨ç¼Æ´£¤É¬°¥N½X

¦^´_ 1# vinejason

Sub ex()

    With Sheets("Sheet2")
        'BÄæ³]¨ç¼Æ¦p¤U
        '=IF(A2<> "",VLOOKUP($A$2:$A$409,¸ê®Æ!$A$1:$C$64,2,FALSE), "")
        Range("B2:B409") = "=IF(A2<> """",VLOOKUP($A2,¸ê®Æ!$A$1:$C$64,2,FALSE), """")" '»P­ì¦¡²¤¦³¤£¦P
'        Range("B2:B409") = Range("B2:B409").Value '¤½¦¡Âର­È
        
        'CÄæ³]¨ç¼Æ¦p¤U
        '=IF(B2<> "",VLOOKUP($A$2:$A$409,¸ê®Æ!$A$1:$C$64,3,FALSE), "")
        Range("C2:C409") = "=IF(B2<> """",VLOOKUP($A2,¸ê®Æ!$A$1:$C$64,3,FALSE), """")" '»P­ì¦¡²¤¦³¤£¦P
'        Range("C2:C409") = Range("C2:C409").Value '¤½¦¡Âର­È

        'OÄæ³]¨ç¼Æ¦p¤U
        '=IF(AND(COUNTIF($A$2:$A2,$A2)=1,SUMIF($A$2:$A$301,$A2,$D$2)),SUMIF($A$2:$A$301,$A2,$D$2),"")
        Range("O2:O409") = "=IF(AND(COUNTIF($A$2:$A2,$A2)=1,SUMIF($A$2:$A$301,$A2,$D$2)),SUMIF($A$2:$A$301,$A2,$D$2),"""")"
'        Range("O2:O409") = Range("O2:O409").Value '¤½¦¡Âର­È

        'PÄæ³]¨ç¼Æ¦p¤U
        '=IF(AND(COUNTIF($E$2:$E2,$E2)=1,SUMIF($E$2:$E$301,$E2,$D$2)),SUMIF($E$2:$E$301,$E2,$D$2),"")
        Range("P2:P409") = "=IF(AND(COUNTIF($E$2:$E2,$E2)=1,SUMIF($E$2:$E$301,$E2,$D$2)),SUMIF($E$2:$E$301,$E2,$D$2),"""")"
'        Range("P2:P409") = Range("P2:P409").Value '¤½¦¡Âର­È

    End With

End Sub
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD