Unmerge Cells in Excel

22 Dec 20223 minutes to read

Merged cells can be unmerged at anytime.

The following code shows how to unmerge cells in Excel with Interop and XlsIO for .NET.

Interop

C#

private void UnmergeCells()
{
  //Instantiate the application object
  var excelApp = new Microsoft.Office.Interop.Excel.Application();

  //Specify the template Excel file path
  string myPath = "InteropOutput_MergedCells.xlsx";

  //Open the Excel file
  Workbook workbook = excelApp.Workbooks.Open(myPath);

  //Get the A1 cell (merged cell)
  Range rng1 = excelApp.get_Range("A1", Missing.Value);

  //Unmerge the cell
  rng1.UnMerge();

  //Save the file
  workbook.SaveAs("InteropOutput_UnmergedCells.xlsx");

  //Quit the application
  excelApp.Quit();
}

VB.NET

Private Sub UnmergeCells()
  'Instantiate the application object
  Dim excelApp = New Microsoft.Office.Interop.Excel.Application()

  'Specify the template Excel file path
  Dim myPath As String = "InteropOutput_MergedCells.xlsx"

  'Open the Excel file
  Dim workbook As Workbook = excelApp.Workbooks.Open(myPath)

  'Get the A1 cell (merged cell)
  Dim rng1 As Range = excelApp.Range("A1")

  'Unmerge the cell
  rng1.UnMerge()

  'Save the file
  workbook.SaveCopyAs("InteropOutput_UnmergedCells.xlsx")

  'Quit the application
  excelApp.Quit()
End Sub

XlsIO

C#

private void UnmergeCells()
{
  using (ExcelEngine excelEngine = new ExcelEngine())
  {
    //Instantiate the application object
    IApplication application = excelEngine.Excel;

    //Open the Excel file containing merged cells
    IWorkbook workbook = application.Workbooks.Open("XlsIOOutput_MergedCells.xlsx");
    IWorksheet worksheet = workbook.Worksheets[0];

    //Unmerge the merged cells from A1 to C1
    worksheet.Range["A1:C1"].UnMerge();

    //Save the workbook
    workbook.SaveAs("XlsIOOutput_UnmergedCells.xlsx");
  }
}

VB.NET

Private Sub UnmergeCells()
  Using excelEngine As ExcelEngine = New ExcelEngine()
    'Instantiate the application object
    Dim application As IApplication = excelEngine.Excel

    'Open the Excel file
    Dim workbook As IWorkbook = application.Workbooks.Open("XlsIOOutput_MergedCells.xlsx")
    Dim worksheet As IWorksheet = workbook.Worksheets(0)

    'Unmerge the merged cells from A1 to C1
    worksheet.Range("A1:C1").UnMerge()

    'Save as Excel file
    workbook.SaveAs("XlsIOOutput_UnmergedCells.xlsx")
  End Using
End Sub