ikboy

¦^´_ 1# PKKO


Sub TEST_1()

[B:B].Clear: [J1] = ""
xRow = 10
arr = [A1].Resize(xRow)
Brr = [C1].Resize(xRow)
Set xd = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(Brr)
    xd(Brr(i, 1)) = 0
Next
k = xd.keys
t = xd.items
For i = 1 To UBound(arr)
    For j = 0 To UBound(k)
        If InStr(k(j), arr(i, 1)) Then t(i - 1) = t(i - 1) + 1
    Next
Next
[B1].Resize(xRow) = Application.Transpose(t)
End Sub

ikboy

¦^´_ 5# PKKO


    ³æ°j¤èªk¥Î¦b²Ö¥[§a¡A¦ý±z¥Øªº¬O sumif, count, °µÂù°j¹³¬O¥²»Ý¡A­n¦A§Öªº¸Ü­n½Ð¨ä¥L¤j¤j«ü±Ð¤F¡C

ikboy

¦^´_ 7# ­ã´£³¡ªL


    ¦hÁ­ã¤j, ³oÅý§Ú¦^¬Ý¨ì§Úªºµ{§Ç¤¤¦³º|¬},§Ú³Q¹w³]µª®×»¤¥h½Õ¥Î¤F¦r¨å,¦ý·íC¦C¦³­«ÂЮɫK·|ºâº|,ÁÙ¬OGBKEEª©¤j©MPKKO¥ý¶iªº¤èªk·Ç½T¡C

ikboy

¦^´_ 9# stillfish00


    stillfish00¤j¤j, ³o©Û°ª