Excel API Library for .NET - Sample Browser | Document Solutions | Merge cells

[フレーム]

Document Solutions for Excel allow you to merge several cells into a single cell using Merge method of IRange. When a cell range is merged, the data of top left cell stays in the final merged cell, and the data of other cells in the given range is lost.


 
 //create a new workbook
var workbook = new GrapeCity.Documents.Excel.Workbook();
IWorksheet worksheet = workbook.Worksheets[0];
//A1:C4 is a single merged cell.
worksheet.Range["A1:C4"].Merge();
//H5:J5 is a single merged cell.
//H6:J6 is a single merged cell.
worksheet.Range["H5:J6"].Merge(true);
//select A1:H5's entire merge area A1:J5, entire merge area is a bounding rectangle.
var entireMergeArea = worksheet.Range["A1:H5"].EntireMergeArea;
entireMergeArea.Select();
//judge if H5 is a merged cell.
if (worksheet.Range["J5"].MergeCells)
{
 //set value to the top left cell of the merge area.
 worksheet.Range["J5"].EntireMergeArea[0, 0].Value = 1;
}
 
// Save to an excel file
workbook.Save("MergeCells.xlsx");


 
 ' Create a new Workbook
Dim workbook As New Workbook
Dim worksheet As IWorksheet = workbook.Worksheets(0)
'A1:C4 is a single merged cell.
worksheet.Range("A1:C4").Merge()
'H5:J5 is a single merged cell.
'H6:J6 is a single merged cell.
worksheet.Range("H5:J6").Merge(True)
'select A1:H5's entire merge area A1:J5, entire merge area is a bounding rectangle.
Dim entireMergeArea = worksheet.Range("A1:H5").EntireMergeArea
entireMergeArea.Select()
'judge if H5 is a merged cell.
If worksheet.Range!J5.MergeCells Then
 'set value to the top left cell of the merge area.
 worksheet.Range!J5.EntireMergeArea(0, 0).Value = 1
End If
 
' save to an excel file
workbook.Save("MergeCells.xlsx")