Dim exp As String
   Dim temp, tmpExp As String
   Dim length As Integer

        length = 0
        tmpExp = ""
       
        exp = Trim(xlsheet_TandE.cells(i, 8))
        For j = 1 To Len(exp)
           
            temp = Mid(exp, j, 1)
            '判斷是否是中文
            If temp Like "[一-龥]" Then

                '擷取前26個半形字元
                If length + 2 > 26 Then
                    Exit For
                Else
                    length = length + 2
                    tmpExp = tmpExp & temp
                End If
               
            '判斷是否是英文、數字、英文半形句號和空格
            ElseIf temp Like "[0-9a-zA-Z. ]" Then

                '擷取前26個半形字元
                If length + 1 > 26 Then
                    Exit For
                Else
                    length = length + 1
                    tmpExp = tmpExp & temp
                End If
               
            End If
        Next j
       
        '將擷取後的內容設定到"Explaination"中
        xlsheet_TandE.cells(i, 8) = tmpExp