samwang

¦^´_ 1# ziv976688


If .[a1] <> "" Then For i = 4 To 10: .Cells(i, 1) = Application.VLookup(.Range("A1"), Sheets("DATA").Range("A:H"), i - 2, 0): Next

samwang

¦^´_ 1# ziv976688


.[A4:A10].Formula = "=IF(A$1="""","""",VLOOKUP(A$1,DATA!$A:$H,ROW()-2,))": .[A4:A10] = .[A4:A10].Value    '¦C132
>> ½Ð°Ý­ì¨Ó¨º­Ó'¦C132¤£¬O¥i¥H¥Î¶Ü? ¬°¦ó­n§ï?

samwang

¦^´_ 5# ziv976688

¥½¾Ç©|¦³3­Ó¨ç¼Æ¤½¦¡¡A·QÂà¤Æ¬°µ{¦¡»yªk~
>> ¦pªþ¥ó¡A26¦Cªº³Ì¤p=0 ªº­Ó¼Æµª®×»P§Aªº®ÄªGÀɦ³®t²§¡A½Ð¦A½T»{±zªº±ø¥ó»Ý¨D¬°¦ó? ÁÂÁÂ

samwang

¦^´_ 7# ziv976688


´ú¸Õ¦n´X¦¸¡A³£¦b   .EntireColumn.AutoFit    '¦C172³B¤¤Â_~¦p¹Ï¤ù
>> §Ú´ú¸Õ¨S°ÝÃD¡A½Ð¬Ýªþ¥ó¡A¥i¥H¥ý³]¤¤Â_ÂI¦b'¦C172ªº«e­±´X­Ó¡AµM«á°õ¦æµ{¦¡¨ì¤¤Â_ÂI«á¦A«öF8¥h°»´ú°£¿ù¡A
½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

samwang

¦^´_ 11# ziv976688

¥u­n¦³¹Á¸Õ¼g¡A´N·|¦³¶i¨B¡A­×§ï¦p¤U¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
        If Arr(i, j) = 0 Then
            n = n + 1: Arr(1, j) = n
        ElseIf Arr(i, j) > 0 And n = 0 Then
           Arr(1, j) = "V"
        End If

samwang

¦^´_ 14# ziv976688


°ÝÃD1: >> ¤w§ó·s¡A¦pªþ¥ó¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C

°ÝÃD2¡G
7T_·j´M(²Î)¦rÀÉ(¥DÀÉ)_1003(C2_C26=VBA)ªº¦C191~¦C197µ{¦¡½X¤£¯à°õ¦æ~
¦pªG°õ¦æ~·|¦b¦C195¦Û°ÊÄæ¼e²£¥Í"°»¿ù"~µM«áµLªkÃö³¬ÀÉ®×~·|·í¾÷~¥²¶·±j¨î­«·s¶}¾÷
>> °ÝÃD2¡A§Ú´ú¸Õ¨S°ÝÃD¡A¥t¥~¦C191~197(ª©­±³]©w)¡A«á¾Ç»{¬°¬O¦h¾lªº¥i¥H²¾°£¡A
¦]¬°«á­±µ{¦¡¦C200 ¬O±N¾ã­Ó­ì¨ÓÀɮ׮榡¾ã­Ócopy ¡AµM«á¥t¦s·sÀÉ¡A©Ò¥H¤£¥Î¦A¨C¦¸­«·s³]©w¡A
²M°£Â¸ê®Æ®É¡A»Ý¥Î.ClearContents¡A¤£¥i¥Î.Delete(­ì®æ¦¡³]©w²M°£)¡AÁÂÁÂ