控件按钮绑定的VBA宏执行无响应（无报错）排查求助

看起来你的宏第一次跑正常，之后再点就没反应还不报错，这种情况多半是循环逻辑或者单元格判断的细节出了问题，咱们一步步捋：

先分析现有代码的潜在问题 #

从你贴的代码片段来看，有几个明显的缺口：

• 没定义Sheet1的遍历范围：你只写了要遍历Sheet1的行，但没获取Sheet1的最后行号，也没给循环变量i设置起始/结束范围，这会导致循环根本没执行，或者只执行了固定一行，第一次跑完后就没后续动作了。
• Sheet2的空行判断逻辑有局限：你用A列的最后行+1作为新行，但如果Sheet2的A列是空的，或者你的数据其实存在J列，这个判断就会出错，导致找不到正确的空行写入。
• 值比较可能有隐形问题：比如C列和G列的单元格格式不匹配（一个是文本型数字，一个是数值型），或者单元格里有看不见的空格，肉眼看起来相同但实际比较不相等，自然不会触发复制动作。

给你修正后的完整宏代码 #

我把缺失的部分补全，还加了格式兼容的判断，你可以替换原代码试试：

Sub CopyCopyPasteRowsToSheet2()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim lastRow1 As Long ' Sheet1的最后数据行
    Dim lastRow2 As Long ' Sheet2的J列最后空行
    Dim i As Long
    
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取Sheet1有数据的最后一行（按C列判断，因为要检查C列的值）
    lastRow1 = ws1.Cells(ws1.Rows.Count, "C").End(xlUp).Row
    
    ' 遍历Sheet1的每一行（从第2行开始，假设第1行是表头）
    For i = 2 To lastRow1
        ' 用Value2比较，避免格式差异导致的判断错误
        If ws1.Cells(i, "C").Value2 = ws1.Cells(i, "G").Value2 Then
            ' 找到Sheet2 J列的最后空行
            lastRow2 = ws2.Cells(ws2.Rows.Count, "J").End(xlUp).Row + 1
            ' 处理J列全空的情况，默认从第2行开始（如果有表头的话）
            If lastRow2 < 2 Then lastRow2 = 2
            ' 直接赋值比复制粘贴更高效
            ws2.Cells(lastRow2, "J").Value = ws1.Cells(i, "G").Value
        End If
    Next i
    
    ' 加个提示框，确认宏执行完成
    MsgBox "处理完毕！共检查了" & lastRow1 - 1 & "行数据", vbInformation
End Sub

额外排查小技巧 #

• 加调试提示：在循环里的If判断内部加MsgBox "找到符合条件的行：" & i，这样能知道有没有触发复制逻辑。
• 检查单元格值：选中Sheet1里你认为应该符合条件的C列和G列单元格，看编辑栏里的内容是不是完全一致，有没有多余的空格或换行符。
• 检查Sheet保护：如果Sheet2被保护了，宏可能无法写入单元格，而且如果没开启报错提示的话，不会弹出错误，你可以先取消Sheet2的保护试试。

备注：内容来源于stack exchange，提问作者Rhiaanon