宏/VBA:如何将带删除线的行复制到另一个工作表

Sub CopyStrikethroughRows()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRow As Range
    Dim targetRow As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 遍历源工作表的每一行
    For Each sourceRow In sourceSheet.UsedRange.Rows
        ' 检查当前行是否有删除线
        If sourceRow.Font.Strikethrough Then
            ' 复制当前行到目标工作表
            sourceRow.Copy
            targetSheet.Cells(targetSheet.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        End If
    Next sourceRow
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
End Sub