Come eliminare tutte le doppie righe vuote con celle unite

Question

In una scheda excel con tre colonne e righe con i dati ho tantissime doppie righe vuote con celle unite che vorrei eliminare in maniera veloce in modo da ottenere tutte righe normali con i dati. Nel file excel in allegato ho inserito come esempio le righe doppie a celle unite:

11-12

14-15

17-18

20-21

23-24

che vorrei eliminare con una procedura semplice e dunque diversa da quella manuale.

Il mio file di esempio si trova qui: https://docs.google.com/spreadsheets/d/1Icbn2WAdm4gU03K6faCETxQhwME5riGb/edit?usp=sharing&ouid=116015406645917536793&rtpof=true&sd=true

Grazie.

Answer 1

In una scheda excel con tre colonne e righe con i dati ho tantissime righe vuote con celle unite che vorrei eliminare in maniera veloce in modo da ottenere tutte righe normali con i dati. Nel file excel in allegato ho inserito come esempio le righe doppie a celle unite:

11-12

14-15

17-18

20-21

23-24

che vorrei eliminare con una procedura semplice e dunque diversa da quella manuale.

Il mio file di esempio si trova qui: https://docs.google.com/spreadsheets/d/1Icbn2WAdm4gU03K6faCETxQhwME5riGb/edit?usp=sharing&ouid=116015406645917536793&rtpof=true&sd=true

Grazie.

Questa semplice macro dovrebbe fare al caso tuo:

Sub noMerge() 

Dim lngRow As Long 

    For lngRow = Cells(Rows.Count, 1).End(xlUp).Row To 7 Step -1 

        If Cells(lngRow, 1).MergeCells Then Range("A" & lngRow - 1 & ":A" & lngRow).EntireRow.Delete 

    Next lngRow 

End Sub

Ciao.

edit

Ciao Norman, ci siamo sovrapposti 😉

Answer 2

Ciao Michele,

In una scheda excel con tre colonne e righe con i dati ho tantissime righe vuote con celle unite che vorrei eliminare in maniera veloce in modo da ottenere tutte righe normali con i dati. Nel file excel in allegato ho inserito come esempio le righe doppie a celle unite:

11-12

14-15

17-18

20-21

23-24

che vorrei eliminare con una procedura semplice e dunque diversa da quella manuale.

Il mio file di esempio si trova qui: https://docs.google.com/spreadsheets/d/1Icbn2WAdm4gU03K6faCETxQhwME5riGb/edit?usp=sharing&ouid=116015406645917536793&rtpof=true&sd=true

• Alt+F11 per aprire l'editor di VBA
• Alt+IM per inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

 '========>>

Option Explicit

'-------->>

Public Sub Tester()

Dim WB As Workbook 

Dim SH  As Worksheet 

Dim Rng As Range, rArea As Range, rCelle\_Unite As Range 

Const sFoglio As String = "Azienda e Stablimento" 

Set WB = ThisWorkbook 

Set SH = WB.Sheets(sFoglio) 

On Error Resume Next 

Set Rng = SH.UsedRange.Columns(1).SpecialCells(xlCellTypeBlanks) 

If Not Rng Is Nothing Then 

    For Each rArea In Rng.Areas 

        Set rCelle\_Unite = rArea.Cells(1) 

        If rCelle\_Unite.MergeCells Then 

               rArea.EntireRow.Delete 

        End If 

    Next rArea 

End If 

On Error GoTo 0 

End Sub

'<<========

• Alt+Q per chiudere l'editor di VBA e tornare a Excel.
• Salva il file con l'estensione xlsm
• Alt+F8 per aprire la finestra di gestione delle macro
• Seleziona Tester
• Esegui

Potresti scaricare il mio file di prova Michele20231217.xlsm

===

Regards,

Norman