在使用WPS Office进行数据处理时，可能会遇到使用REPLACE函数将手机号码中间的四位数字替换为星号的情况。如果想要恢复这些被替换的数字，可以采用以下几种方法：
方法一：使用自定义替换功能
1. 打开WPS表格或文档，并选中需要恢复手机号码的单元格或文本。
2. 在菜单栏中点击“查找和选择”，选择“替换”。
3. 在弹出的“替换”对话框中，查找内容输入“****”，替换为输入“****”。
4. 点击“全部替换”按钮，即可将所有手机号码中间的四位数字替换回原始数字。
方法二：使用MID函数提取原始数字
1. 打开WPS表格或文档，并选中需要恢复手机号码的单元格或文本。
2. 在编辑栏中输入MID函数，MID函数的语法为“MID(text, start_num, num_chars)”，其中text是需要提取数字的单元格或文本，start_num是提取开始的位置（即星号的起始位置），num_chars是提取的字符数。
3. 根据手机号码的规律，输入相应的参数。例如，如果手机号码为138****1234，则可以输入MID(A1, 5, 4)（假设手机号码在A1单元格），其中A1是手机号码所在的单元格，5是开始提取的位置（即第一个星号的起始位置），4是提取的字符数。
4. 按下Enter键，即可将手机号码中间的四位数字提取出来。
方法三：使用VBA宏自动恢复手机号码
如果以上两种方法都无法解决问题，可以尝试使用VBA宏来自动恢复手机号码。以下是一个简单的VBA宏示例：
1. 打开WPS表格或文档，按下Alt+F11键打开VBA编辑器。
2. 在VBA编辑器中，选择“插入”菜单下的“模块”选项。
3. 在新模块中输入以下代码：
```vba
Sub RestorePhoneNumbers()
Dim rng As Range
Dim cell As Range
Dim phone As String
Dim newPhone As String
'选择需要恢复手机号码的范围
Set rng = Selection.Range
'遍历每个单元格
For Each cell In rng
'提取手机号码
phone = cell.Text
'判断是否包含星号
If InStr(phone, "****") > 0 Then
'替换星号为原始数字
newPhone = Replace(phone, "****", "****")
'将替换后的手机号码写回单元格
cell.Text = newPhone
End If
Next cell
End Sub
```
4. 按下F5键运行宏，即可自动将选中的单元格中的手机号码中间四位数字恢复为原始数字。
以上三种方法可以根据具体情况选择使用，如果只是少量手机号码需要恢复，建议使用自定义替换功能；如果需要恢复的手机号码较多，建议使用MID函数提取原始数字；如果以上两种方法都无法解决问题，可以考虑使用VBA宏自动恢复手机号码。