如何在Excel含锁定/解锁单元格的列中粘贴数据并跳过锁定单元格？

方法一：手动操作（适合临时需求） #

• 在来源工作表选中对应行数的数据，按Ctrl+C复制
• 回到目标工作表，选中B1:B4按Ctrl+V粘贴；再选中B6:B7重复粘贴
• 粘贴完成后可手动确认B5未被修改

方法二：VBA宏（自动跳过并提示，适合重复操作） #

通过VBA宏可自动识别锁定单元格，跳过粘贴并弹出提示，步骤如下：

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

Sub PasteSkipLockedCells()
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim cell As Range
    Dim skippedCells As String
    
    ' 自定义来源区域（修改为实际复制数据的位置）
    Set sourceRange = ThisWorkbook.Sheets("Sheet2").Range("A1:A7")
    ' 目标区域为B1:B7
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("B1:B7")
    
    ' 动态匹配来源区域行数（可选，增强代码灵活性）
    Set sourceRange = ThisWorkbook.Sheets("Sheet2").Range("A1:A" & targetRange.Rows.Count)
    
    skippedCells = ""
    
    ' 遍历目标区域每个单元格
    For Each cell In targetRange
        If Not cell.Locked Then
            ' 复制对应来源单元格的值
            cell.Value = sourceRange.Cells(cell.Row - targetRange.Row + 1).Value
        Else
            ' 记录被跳过的单元格地址
            skippedCells = skippedCells & cell.Address & ", "
        End If
    Next cell
    
    ' 弹出提示（如果存在被跳过的单元格）
    If skippedCells <> "" Then
        skippedCells = Left(skippedCells, Len(skippedCells) - 2)
        MsgBox "以下单元格因受保护已被跳过：" & skippedCells, vbInformation, "粘贴提示"
    End If
End Sub

4. 修改代码中的Sheet2和A1:A7为实际的来源工作表和数据区域
5. 返回Excel界面，按下Alt+F8，选择PasteSkipLockedCells并点击「执行」

注意事项 #

• 单元格锁定仅在工作表被保护时生效，若目标工作表未保护，需先点击「审阅」→「保护工作表」开启保护（默认设置下，锁定单元格会被禁止编辑）
• 若需复制格式而非仅值，可将cell.Value = ...替换为sourceRange.Cells(...).Copy cell

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