在Excel中提取相同文字内容，可以通过以下几种方法实现：
方法一：使用“查找和替换”功能
1. 打开Excel表格。
2. 选择需要查找内容的单元格区域。
3. 点击“开始”选项卡。
4. 在“编辑”组中，点击“查找和选择”按钮，然后选择“查找”。
5. 在弹出的“查找和替换”对话框中，输入要查找的文字内容。
6. 点击“查找下一个”按钮，Excel会高亮显示所有匹配的单元格。
方法二：使用条件格式
1. 选择包含要查找内容的单元格区域。
2. 点击“开始”选项卡。
3. 在“样式”组中，点击“条件格式”按钮，然后选择“突出显示单元格规则”。
4. 选择“重复值”，然后点击“确定”。
5. 在弹出的对话框中，选择“格式”按钮，可以设置突出显示的样式。
6. 点击“确定”，Excel会突出显示所有重复的单元格。
方法三：使用公式
如果你想要将相同文字内容的单元格提取出来，可以使用以下公式：
```excel
=IF(COUNTIF($A$2:$A$10, A2)>1, A2, "")
```
这里的`$A$2:$A$10`是包含要查找内容的单元格区域，`A2`是要查找的文字内容所在的单元格。这个公式会返回所有重复的单元格内容。
方法四：使用VBA
如果你需要批量处理或自动化这个过程，可以使用VBA编写一个宏。
```vba
Sub FindDuplicates()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim dict As Object
Dim key As Variant
Set ws = ThisWorkbook.Sheets("Sheet1") ' 指定工作表
Set rng = ws.UsedRange ' 使用整个使用过的区域
Set dict = CreateObject("Scripting.Dictionary")
' 遍历区域，记录每个值出现的次数
For Each cell In rng
If Not dict.Exists(cell.Value) Then
dict.Add cell.Value, 1
Else
dict(cell.Value) = dict(cell.Value) + 1
End If
Next cell
' 清除重复值
For Each key In dict.Keys
If dict(key) > 1 Then
ws.Range(ws.Cells(1, 1), ws.Cells(rng.Rows.Count, rng.Columns.Count)).SpecialCells(xlCellTypeConstants).Value = Application.WorksheetFunction.CountIf(rng, key)
End If
Next key
End Sub
```
这个宏会查找工作表中所有重复的值，并将它们的数量显示在相应的单元格中。你需要根据实际情况调整宏中的代码。
使用以上方法，你可以根据需要在Excel中提取相同文字内容。
