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

[µo°Ý] ½Æ»s¯S©w¤º®e¨ì¥t¤@±i¤u§@ªí¤º®e

[µo°Ý] ½Æ»s¯S©w¤º®e¨ì¥t¤@±i¤u§@ªí¤º®e

¥»©«³Ì«á¥Ñ mdr0465 ©ó 2021-2-11 19:52 ½s¿è

¦U¦ì¤j¤j:
½Ð°Ý§Ú¦p¦ó¥i¥H±N§Ú¨C¤G­Ó¤u§@ªí
¥ÑB6¦ÜB24, D6¦ÜD24ªº¼Æ¾Ú,«ö¤½¥q©M¹ïÀ³A¦Cªº¦WºÙ°t¹ï©ñ¦bSUMMARY¡¨ªº¤u§@ªí¨½©O?

ÁÂÁÂ

QuotationÁ`¶×.rar (27.86 KB)

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-2-12 14:21 ½s¿è

¦^´_ 1# mdr0465

¦³ªÅÀ°§Ú¸Õ¸Õ¬Ý¬O¤£¬O³o¼Ë  ·PÁÂ


QuotationÁ`¶×2_1.rar (42.61 KB)

TOP

¦^´_ 2# °a¤ªºµ

¤ªºµ®v¥S
¸U¤G¤À·P¿E§AªºÀ°¦£¡A·s¦~§Ö¼Ö

ÁÂÁ§A

TOP

¦^´_ 1# mdr0465

¦]¬°¸ê®ÆªºÄæ¦ì¤£¤@­P,¥u¯à¥Î¤ñ¹ïªº
Sub ex()
Dim arr As Variant
Dim x%, y%, b%, a As Object
ReDim arr(Sheets.Count - 2, Sheets("summary").[a1].End(2).Column)
For x = 2 To Sheets.Count
   arr(x - 2, 0) = x - 1
   arr(x - 2, 1) = Sheets(x).Name
   For Each a In Sheets("SUMMARY").Range([c1], [c1].End(2))
      For b = 1 To 3 Step 2
         For y = 1 To Sheets(x).Cells(65535, b).End(3).Row
            If Left(Sheets(x).Cells(y, b), Len(a)) = a Then
               arr(x - 2, a.Column - 1) = Sheets(x).Cells(y, b).Offset(, 1).Value
               GoTo line1
             End If
         Next
      Next
line1:
   Next
Next
Sheets("SUMMARY").[a2].Resize(UBound(arr) + 1, UBound(arr, 2)) = arr
End Sub

TOP

jcchiang
¯uªºÁÂÁ§AªºÀ°¦£, ¸U¤À·P¿E§A

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD