对多单元格区域使用Replace时出现Run-time error 13:类型不匹配错误

你遇到的问题根源很直接：不能把多单元格区域直接赋值给单个String类型变量。C3:J3是一行8个单元格的区域，而String只能存储单一文本，强行赋值就会触发类型不匹配错误。

给你两种可行的解决办法：

方法1：逐个处理单元格（简单直观） #

直接遍历区域里的每个单元格，对单元格内容单独执行Replace操作：

Sub RemovePrefix()
    Dim cell As Range
    ' 遍历C3到J3的每一个单元格
    For Each cell In Sheets("Input").Range("C3:J3")
        ' 跳过空单元格，避免不必要的处理
        If cell.Value <> "" Then
            cell.Value = Replace(cell.Value, "Username / Nama TikTok : ", "")
        End If
    Next cell
End Sub

方法2：数组批量处理（高效适合大区域） #

如果后续要处理的区域更大，用数组在内存里处理会快很多：

Sub RemovePrefix()
    Dim dataArr As Variant
    Dim i As Integer
    ' 把单元格区域内容读取到数组中
    dataArr = Sheets("Input").Range("C3:J3").Value
    ' 遍历数组的每一列（因为是单行，所以行索引固定为1）
    For i = 1 To UBound(dataArr, 2)
        If dataArr(1, i) <> "" Then
            dataArr(1, i) = Replace(dataArr(1, i), "Username / Nama TikTok : ", "")
        End If
    Next i
    ' 将处理后的数组写回原单元格区域
    Sheets("Input").Range("C3:J3").Value = dataArr
End Sub

内容的提问来源于stack exchange，提问作者Caya