如何從excel中的單元格中獲取單詞

Question

我想從單元格中獲取單詞。例如，單元格A2的值爲「我的名字是jayson」。我想要得到的話：「名字」&「傑森」。我想排除少於3個字符的單詞。我如何在Excel中使用公式/函數來做到這一點？

謝謝。

Answer 1

該代碼應該從包含要拼接的數據的工作表運行。我假設你在列工作一個

代碼

1. 使用正則表達式來刪除所有的字母數字字符串小於或等於3個字符
2. 轉儲修訂組字符串到新創建的片
3. 使用Excel的「文本到列」

變體陣列用於使這一種有效的方法

012拆分這些字符串

{更新：增加了無環路版本}

Original Code

Sub Spliced() 
     Dim ws1 As Worksheet 
     Dim ws2 As Worksheet 
     Dim rng1 As Range 
     Dim objRegex 
     Dim X 
     Dim lngRow As Long 

     Set ws1 = Sheets(1) 
     Set rng1 = ws1.Range(ws1.[a1], ws1.Cells(Rows.Count, "A").End(xlUp)) 
     Set ws2 = Sheets.Add 

     X = rng1.Value2 
     Set objRegex = CreateObject("vbscript.regexp") 
     With objRegex 
      .Pattern = "\b\w{1,3}\b" 
      .Global = True 
     End With 

     For lngRow = 1 To UBound(X) 
      X(lngRow, 1) = Application.Trim(objRegex.Replace(X(lngRow, 1), vbNullString)) 
     Next 

     ws2.Range(rng1.Address) = X 
     ws2.Columns("A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ 
             TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Space:=True 
    End Sub 

Updated:No loops

Sub Spliced_NoLoops() 
    Dim ws1 As Worksheet 
    Dim ws2 As Worksheet 
    Dim rng1 As Range 
    Dim objRegex 
    Dim strDelim As String 
    Dim strOut As String 

    strDelim = "||" 
    Set ws1 = Sheets(1) 
    Set rng1 = ws1.Range(ws1.[a1], ws1.Cells(Rows.Count, "A").End(xlUp)) 
    strOut = Join(Application.Transpose(rng1), strDelim) 

    Set ws2 = Sheets.Add 
    Set objRegex = CreateObject("vbscript.regexp") 
    With objRegex 
     .Pattern = "\b\w{1,3}\b" 
     .Global = True 
    End With 

    ws2.Range(rng1.Address) = Application.Transpose(Split(Application.Trim(objRegex.Replace(strOut, vbNullString)), "||")) 
    ws2.Columns("A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ 
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Space:=True 
End Sub 

Answer 2

你不告訴你已經嘗試過的東西，從地上爬起來，以便編碼...
傳遞細胞與分裂的範圍內，以這個函數做大致有以下幾種：

1. 創建一個collection我們將放入任何字符串len> 2
2. 將單元格內容拆分成一個數組。 （variants can contain arrays）
3. 評估各段的長度，並加入到收集字符串W /長度> 2
4. 函數的返回值是一個集合W /預選賽串

請始終運行之前保存您的工作任何VBA。歡呼聲，快樂的編碼。

function splitter(byref rng as range) 
    dim return_value as collection 
    set return_value = new collection 

    dim split_result as variant 
    dim idx as integer 

    split_result = split(rng.value, " ") 

    for idx = lbound(split_result) to ubound(split_result) 
     if len(split_result(idx)) > 2 then 
      return_value.add(split_result(idx)) 
     end if 
    next 
    splitter = return_value 
end function 

我沒有Windows或Mac OS在手來測試，但語法應該是正確的，如果不是這樣的話。