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

[µo°Ý] ¨Ì¦WºÙ¹ïÀ³¨ì½s¸¹(­«½Æªº¦WºÙ­nÅã¥Ü¥X¨Ó)

[µo°Ý] ¨Ì¦WºÙ¹ïÀ³¨ì½s¸¹(­«½Æªº¦WºÙ­nÅã¥Ü¥X¨Ó)

½Ð±Ð¦U¦ì¤j¤j~
¸ê®Æ¤ñ¹ïªº°ÝÃD
¹L©¹³£¬O¨Ì½s¸¹¨Ó¹ïÀ³¦WºÙ
²{¦b·Q­n¦WºÙ¥h¹ïÀ³½s¸¹
·Q­n¦b¤u§@ªí¤@
1.jpg
©M¤u§@ªí¤G¤ñ¹ï
2.jpg

²Ä¤@µ§¦WºÙ(­»­»)¦b¤u§@ªí¤Gname¤ñ¹ïµo²{¦³­«½Æ¦W¦r
­n¦b®ÇÃäÅã¥Ü­«½Æªº¦WºÙ
3.jpg
²Ä¤Gµ§¦WºÙ(¿¼¿¼)¦b¤u§@ªí¤Gname¤ñ¹ï¥u¦³¤@­Ó¦W¦r
no ´N±a¤J002
²Ä¤T¥|µ§(¦n¦n.¦Y¦Y)¦b¤u§@ªí¤Gname¤ñ¹ï¤£¨ì´NÅã¥ÜªÅ­È¤£¸Ì¥¦
³Ì«áµ²ªG§e²{
4.jpg
·Q½Ð±Ð³o­n«ç»ò³B²z ¥H¤U¬OªþÀÉ
¬¡­¶Ã¯1.zip (378.43 KB)

­ì¥»¬O·Q»¡¥i¥H§Q¥Îdictionaryª«¥ó ¦ýµo²{ª«¥ó»Ý­n¦³­Ókey­È ©Mitem
³o¼Ëkey­È¥Nªíname ,item¥Nªíno.
¤§«á«áÄò´N¤£ª¾¹D¸Ó¦p¦óÄ~Äò¼g¤F 0.0

B2:B5=IFERROR(IF(G2="",VLOOKUP(A2,IF({1,0},¤u§@ªí2!B:B,¤u§@ªí2!A:A),2,),""),"")
G2:G5=IF(COUNTIF(¤u§@ªí2!B:B,A2)>1,A2,"")

TOP

¦^´_ 2# hcm19522


ÁÂÁ§Aªº¸Ñµª~
¤j¤jªº¨ç¼Æ¯uªº¦n¼F®`µL©Ò¤£¯à
µ§¼Æ¤Öªº®É­Ô¥i¥H¥ý¥Î¤½¦¡§¹¦¨^^
¦ý­Y²{¦b¦³¦n´X¤dµ§¸ê®Æªº¸Ü
¥i¯à·|¶]«Ü¤[@@
¤£¹LÁÙ¬O«ÜÁÂÁ§A

TOP

¦^´_ 1# Changbanana
¥Î¤F¤@­ÓDictionaryª«¥ó¡A¬Ý¬Ý°õ¦æ³t«×¬O§_¯à´£¤É¡H
  1. Sub test()
  2.     Dim d As Object
  3.     Set d = CreateObject("Scripting.Dictionary")
  4.     Dim arr, brr()
  5.     With Sheets("¤u§@ªí2")
  6.         er = .[A65536].End(3).Row
  7.         arr = .Range("A2:B" & er)
  8.     End With
  9.     For i = 1 To UBound(arr)
  10.         If d.exists(arr(i, 2)) Then
  11.             d(arr(i, 2)) = "¡ô"
  12.         Else
  13.             d(arr(i, 2)) = "'" & arr(i, 1)
  14.         End If
  15.     Next i
  16.     With Sheets("¤u§@ªí1")
  17.         .Range("G2:G65536").ClearContents
  18.         er = .[A65536].End(3).Row
  19.         arr = .Range("A2:B" & er)
  20.     End With
  21.     For i = 1 To UBound(arr)
  22.         If d.exists(arr(i, 1)) Then
  23.             If d(arr(i, 1)) = "¡ô" Then
  24.                 arr(i, 2) = ""
  25.                 n = n + 1
  26.                 ReDim Preserve brr(1 To n)
  27.                 brr(n) = arr(i, 1)
  28.             Else
  29.                 arr(i, 2) = d(arr(i, 1))
  30.             End If
  31.         Else
  32.             arr(i, 2) = ""
  33.         End If
  34.     Next i
  35.     Sheets("¤u§@ªí1").[A2].Resize(UBound(arr), 2) = arr
  36.     Sheets("¤u§@ªí1").[G2].Resize(UBound(brr), 1) = Application.Transpose(brr)
  37.     Set d = Nothing
  38.     arr = ""
  39.     Erase brr
  40. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# Kubi

    ÁÂÁ±zªºÀ°¦£
    DICTIONARY¯uªº«Ü±j¤j
    §ÚÁÙ¦b¾Ç²ß¤¤.....
    ·Q½Ð±Ð§A¤@¤U
         If d.exists(arr(i, 2)) Then
            d(arr(i, 2)) = "¡ô"
        Else
            d(arr(i, 2)) = "'" & arr(i, 1)
        End If
   ¤¤ªº d(arr(i, 2)) = "¡ô" ¬Ý¤£¤jÀ´¡A¥iÀ°¦£¸ÑÄÀ¤@¤U¶Ü
    ÁÂÁ±z

TOP

¦^´_ 5# Changbanana

³o "¡ô" ¨Ã¨S¦³¯S§Oªº·N¸q¡A¥u¬OÀH¤â®³¨Ó°µ¬°©³¤U§PÂ_¦¡ÅçÃҥΦӤw¡A¦]¦¹§A¤]¥i¥H¥Î¨ä¥L²Å¸¹¨Ó¥N´À³á¡C

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD