Excel需求：用REPT函数实现文本仅重复2次，避免重复操作

公式解决方案 #

直接使用以下公式即可实现需求：
=IF(LEFT(B2,LEN(B2)/2)=RIGHT(B2,LEN(B2)/2),B2,REPT(B2,2))

公式逻辑说明 #

• 通过LEN(B2)/2计算文本长度的一半，用LEFT和RIGHT分别提取文本的前半段和后半段
• 如果两段内容相等，说明原文本已经是自身重复2次的结果，直接返回原文本
• 如果不相等（包括文本长度为奇数的情况，此时前半段和后半段长度不一致，必然不相等），则返回原文本重复2次的结果

原公式错误原因 #

你之前的公式=IF(B2=REPT(B2,1), B2=REPT(B2,2), B2=B2)存在两个核心问题：

1. B2=REPT(B2,1)永远为真（REPT(B2,1)就是B2本身），导致只会执行第一个分支
2. 分支里写的是B2=REPT(B2,2)，这是判断语句，返回的是布尔值（True/False），而非你需要的重复后的文本内容

VBA自定义函数方案 #

如果需要批量处理或更灵活的逻辑，可以自定义VBA函数：

1. 按Alt+F11打开VBA编辑器
2. 右键点击当前工作簿，选择「插入」→「模块」
3. 粘贴以下代码：

Function DoubleText(rng As Range) As String
    Dim originalText As String
    originalText = rng.Value
    Dim halfLen As Integer
    halfLen = Len(originalText) / 2
    
    ' 判断长度是否为偶数，且前后半段内容一致
    If halfLen = Int(halfLen) Then
        If Left(originalText, halfLen) = Right(originalText, halfLen) Then
            DoubleText = originalText
            Exit Function
        End If
    End If
    
    ' 不符合重复条件则返回重复2次的文本
    DoubleText = originalText & originalText
End Function

4. 返回Excel界面，在目标单元格输入=DoubleText(B2)即可调用

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