Unmerge Cells in Excel

8 Dec 20233 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

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();
}
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

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");
  }
}
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