在Excel中按单词长度进行排序，可以使用VBA代码来实现。以下是一个示例代码：

Sub SortWordsByLength()
    Dim rng As Range
    Dim cell As Range
    Dim words() As String
    Dim i As Integer, j As Integer
    
    ' 假设单词存储在A列，从第2行开始
    Set rng = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    
    ' 将单元格中的内容按空格分割成单词，并存储在一个数组中
    For Each cell In rng
        words = Split(cell.Value, " ")
        
        ' 按单词长度进行冒泡排序
        For i = LBound(words) To UBound(words) - 1
            For j = i + 1 To UBound(words)
                If Len(words(i)) > Len(words(j)) Then
                    Dim temp As String
                    temp = words(i)
                    words(i) = words(j)
                    words(j) = temp
                End If
            Next j
        Next i
        
        ' 将排序后的单词重新组合，并写回到单元格中
        cell.Value = Join(words, " ")
    Next cell
    
    ' 按A列进行排序
    rng.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo
End Sub

将上述代码复制到Excel的VBA编辑器中（按下Alt + F11进入VBA编辑器），然后在需要的地方调用SortWordsByLength子过程即可实现按单词长度排序。注意需要在代码中适当修改单词所在的列和行数。