參考：https://blog.csdn.net/sinat_35376396/article/details/52415328

------------------------------------------------------------------

程式碼實現：

>>> with open('E:/99999.txt','r')as f:
...   for line in f:
...     seg = jieba.cut(line.strip(),cut_all = False)
...     output = '/'.join(seg)
...     output = output+"'\n'"
...     with open('E:/132125.txt','a+')as s:
...       s.write(output)
...
45
79
79
 

最終程式碼：

>>> with open('E:/99999.txt','r')as f:
...   for line in f:
...     seg = jieba.cut(line.strip(),cut_all = False)
...     output = '/'.join(seg)
...     output = output+'\n'
...     with open('E:/132125.txt','a+')as s:
...       s.write(output)
...
42
76
76
60
79
82
78
55
46
66
69
67
69
72
85
>>>
 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range
    Set rng = UsedRange
    If Target.Count > 1 Then
           Set Target = Target.Cells(1)
    End If
    If Application.Intersect(Target, rng) Is Nothing Or Target.Value = "" Then Exit Sub
    Dim c As Range
    For Each ws In Worksheets
        Set rng = ws.UsedRange
        rng.Interior.ColorIndex = xlNone
        For Each c In rng
            If c.Value = Target.Value Then
            c.Interior.ColorIndex = 28
            End If
        Next
    Next
End Sub