Comment clearcontents de l'une des cellules fusionnées

Je suis en train d'effacer le contenu des cellules, mais certains d'entre eux sont fusionnées, alors je suis l'erreur

1004 :"On ne peut pas faire ça à des cellules fusionnées"

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

Essayez un autre à l'aide de .Cells encore elle renvoie l'erreur

    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
Vous aurez à parcourir chaque cellule. Des cellules fusionnées sont le travail du diable.

OriginalL'auteur newguy | 2015-10-16

  1. 11

    Vous avez besoin Cells pas Range:

    ws.Cells(j, l).ClearContents

    Oups - oublié à propos de la fusion de bits:

            If Cells(j, l).MergeCells Then
            Cells(j, l).MergeArea.ClearContents
        Else
            Cells(j, l).ClearContents
        End If
    initialement, il a été de cette façon puis j'ai changé d'échelle pour voir si cela fonctionne alors il ne fonctionne pas
    Voir mise à jour de réponse. 🙂
    Merci s'accoupler, il a travaillé

    OriginalL'auteur Rory

  2. 0

    Une chose que vous créez la macro et de l'utilisation de la touche de raccourci (ctrl + m), de sorte que vous pouvez sélectionnez les cellules que vous souhaitez fusionner et claire aussi.voici ce code:

    Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+m
'
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        If .MergeCells = True Then
            .MergeCells = False
        Else
            .MergeCells = True
        End If
    End With
End Sub

    OriginalL'auteur Ros Vanda

  3. -3

    Essayez d'utiliser 

    ws.Range(j,l).Clearcontents
    Non, ça ne marchera pas
    Oh, je vois ce que vous avez fait maintenant. bonne mise à jour. Le problème est probablement que vous demandez excel pour effacer le contenu d'une seule cellule dans une cellule fusionnée, je ne sais pas comment le résoudre. Désolé.

    OriginalL'auteur Stian Yttervik