vba - 如何清除合并单元格的内容

Question

我正在尝试清除单元格中的内容，但其中一些已合并，因此我收到错误

1004 :"We cant do that to merged cells"

For l = 4 To 9
    If ws.Cells(j, l).Interior.ColorIndex = 19 Then
         ws.Range(j, l).ClearContents  'Error here
    End If
Next l 

再次尝试使用.Cells仍然返回错误

    For l = 4 To 9
        If ws.Cells(j, l).Interior.ColorIndex = 19 Then
             ws.Cells(j, l).ClearContents  'Error here
        End If
    Next l 

Answer 1

您需要单元格而不是范围:

ws.Cells(j, l).ClearContents

糟糕 - 忘记了合并位:

        If Cells(j, l).MergeCells Then
            Cells(j, l).MergeArea.ClearContents
        Else
            Cells(j, l).ClearContents
        End If