Excel VBA求助：复制J列非空值到G列对应行失败

问题原因 #

你的J列单元格是通过公式返回的空文本""，而Excel的SkipBlanks:=True参数仅识别**完全空白（无内容、无公式）**的单元格，这类公式生成的空文本会被视为有内容，所以会覆盖G列原有数据。

方法一：循环遍历单元格（直观易理解） #

替换原有宏代码为：

Private Sub CommandButton1_Click()
    Dim cell As Range
    ' 遍历J2到J3000的每个单元格
    For Each cell In Range("J2:J3000")
        ' 仅当单元格值不为空时，复制到对应G列单元格
        If cell.Value <> "" Then
            cell.Offset(0, -3).Value = cell.Value ' Offset(0,-3)表示同一行，左移3列（J到G）
        End If
    Next cell
    ' 清除剪贴板，避免弹窗提示
    Application.CutCopyMode = False
End Sub

方法二：使用SpecialCells定位非空值（更高效） #

如果数据量较大，循环可能稍慢，可使用SpecialCells定位所有非空的单元格（包括公式返回的非空值），批量复制：

Private Sub CommandButton1_Click()
    On Error Resume Next ' 防止J列无任何非空值时报错
    ' 定位J2:J3000中所有值不为空的单元格
    Range("J2:J3000").SpecialCells(xlCellTypeConstants, xlTextValues).Copy
    ' 粘贴到G2起始位置，仅粘贴值
    Range("G2").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    On Error GoTo 0 ' 恢复错误处理
End Sub

注：因为你的J列公式返回的只有"Yes"或空文本，所以用xlTextValues可以精准定位到返回"Yes"的单元格。

补充说明 #

• 两种方法都只会将J列的"Yes"复制到G列对应行，不会覆盖G列原有数据；
• 方法一适合数据量不大的场景，逻辑清晰；方法二效率更高，适合大数据范围。

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