eric7765

¦^´_ 2# stillfish00


    ·PÁÂs¤j ±z´£¨Ñªºµª®× §¹¥þ²Å¦X§Ú»Ý­nªº «D±`·PÁÂ

eric7765

¦^´_ 2# stillfish00
ÁÂÁÂs¤j  ¹ïµ{¦¡¤è­±¤£¼ô±x §Ú¶K¤W ¥¦Åã¥Ü ¨S¦³©w¸qsub §Úªþ¤WÀÉ®× ¥i¥H³Â·Ð s¤jÀ°§Ú¬Ý¬Ý¶Ü ·PÁÂ

3¦ì¼Æ±Æ¦C²Õ¦X.rar (15.96 KB)

¤U¸ü¦¸¼Æ: 3

2019-2-22 16:26

eric7765

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


    ·PÁ¤j¤j ¦ý¦³­Ó¤p°ÝÃD  ¥i¥H±Æ°£­«½Æªº¶Ü?  ¤ñ¦p 366 ¦pªG¤£­«½Æ ¥u·|¦³3ºØ²Õ¦X ¦ý¬O·Ó³o­Ó¤½¦¡ ·|±Æ¦¨6­Ó²Õ¦X

­ã´£³¡ªL

D2:
=TEXT(SUM((0&MID(INDEX(A:A,INT(ROW(A6)/6)+1),MID({112233,231312,323121},MOD(ROW(A6),6)+1,1),1))*{100,10,1}),"000;;")

E2:
=INDEX(B:B,INT(ROW(A6)/6)+1)&""

stillfish00

¦^´_ 1# eric7765
¥ô·N¦ì¼Æ±Æ¦C

1. Sub Solution()
   
2.     Range(Cells(2, "D"), Cells(Rows.Count, "E")).ClearContents  ' Clear result
   
3.     If Cells(Rows.Count, "A").End(xlUp).Row < 2 Then Exit Sub   ' Exit if no input
   
4.     Dim text As String, id, r
   
5.     r = 1
   
6.     For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
   
7.         text = Cells(i, "A").text
   
8.         id = Cells(i, "B").Value
   
9.         If Len(text) > 0 Then
   
10.             For Each s In GetAllPermutation(text)
    
11.                 r = r + 1
    
12.                 Cells(r, "D").Value = s
    
13.                 Cells(r, "E").Value = id
    
14.             Next
    
15.         End If
    
16.     Next
    
17. End Sub

½Æ»s¥N½X

1. Function GetAllPermutation(ansi_str As String)
   
2.     Dim ans: Set ans = CreateObject("scripting.dictionary")
   
3.     Dim ch, new_ans
   
4.     ans("") = 0
   
5.     For i = 1 To Len(ansi_str)
   
6.         ch = Mid(ansi_str, i, 1)
   
7.         Set new_ans = CreateObject("scripting.dictionary")
   
8.         For Each s In ans.keys()
   
9.             For j = 0 To Len(s)
   
10.                 new_ans(Left(s, j) & ch & Mid(s, j + 1)) = 0
    
11.             Next
    
12.         Next
    
13.         Set ans = new_ans
    
14.     Next
    
15.     GetAllPermutation = ans.keys()
    
16. End Function

½Æ»s¥N½X