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

[µo°Ý] ¦p¦ó·j´M²Å¦X¦r¦ê , ¨Ã±N¸Ó¦æ¦C¸¹¤Î¸ê®Æ¦CÅã¥Ü¥X¨Ó

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ßVBA°}¦C,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð

°õ¦æ«e:
20230526_1.jpg
2023-5-26 13:32


°õ¦æµ²ªG:
20230526_2.jpg
2023-5-26 13:32



Option Explicit
Sub TEST()
Dim Brr, Y, R&, i&, j%, V$
'¡ô«Å§iÅܼÆ
Brr = Range([Data!M1], [Data!A65536].End(3))
'¡ô¥OBrrÅܼƬO ¤Gºû°}¦C,¥HDataªíA~MÄæÀx¦s®æ­È±a¤J°}¦C¤¤
V = [Result!A1]
'¡ô¥OVÅܼƬO Resultªí[A1]Àx¦s®æ¦r¦ê
For i = 2 To UBound(Brr)
'¡ô³]¶¶°j°é
   If Brr(i, 4) = V Then
   '¡ô¦pªG²Ä4Äæ­È¬O ¦PVÅܼÆ
      R = R + 1: Brr(R, 1) = i
      '¡ô¥ORÅܼƲ֥[1,¥OBrr°}¦C²Ä1Äæ½Æ¼g¤JiÅܼƭÈ
      For j = 1 To 12: Brr(R, j + 1) = Brr(i, j): Next
      '¡ô¥O¨ä¥L¸ê®Æ½Æ¼g¤JBrr°}¦C2~13Äæ
   End If
Next
With Sheets("Result")
'¡ô¥H¤U¬OÃö©óResultªíªºµ{§Ç
   .UsedRange.Offset(2, 0).ClearContents
   '¡ô¥O¼ÐÃD¦C¯d¤U,¨ä¾lÀx¦s®æ²M°£¤º®e
   .[A3].Resize(R, 13) = Brr
   '¡ô¥OBrr°}¦C­È¼g¤JÀx¦s®æ¸Ì,¶W¹L½d³òªº°}¦C­È©¿²¤
End With
Set Y = Nothing: Erase Brr
'¡ô¥OÄÀ©ñÅܼÆ
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : «Î¼e¤£¦p¤ß¼e¡C
ªð¦^¦Cªí ¤W¤@¥DÃD