// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; // 範囲[A1:C4]のセルを結合 worksheet.Range["A1:C4"].Merge(); // 範囲[H5:J5]のセルを結合 // 範囲[H6:J6]のセルを結合 worksheet.Range["H5:J6"].Merge(true); // 範囲[A1:J5]の領域のセルを全て結合し選択するとひとつの四角形領域になります var entireMergeArea = worksheet.Range["A1:H5"].EntireMergeArea; entireMergeArea.Select(); // 結合セルかどうかを判断 if (worksheet.Range["J5"].MergeCells) { // 結合した領域の左上のセルに値を設定 worksheet.Range["J5"].EntireMergeArea[0, 0].Value = 1; } // xlsx ファイルに保存 workbook.Save("MergeCells.xlsx");
' 新規ワークブックの作成 Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) ' 範囲[A1:C4]のセルを結合 worksheet.Range("A1:C4").Merge() ' 範囲[H5:J5]のセルを結合 ' 範囲[H6:J6]のセルを結合 worksheet.Range("H5:J6").Merge(True) ' 範囲[A1:J5]の領域のセルを全て結合し選択するとひとつの四角形領域になります Dim entireMergeArea = worksheet.Range("A1:H5").EntireMergeArea entireMergeArea.Select() ' 結合セルかどうかを判断 If worksheet.Range!J5.MergeCells Then ' 結合した領域の左上のセルに値を設定 worksheet.Range!J5.EntireMergeArea(0, 0).Value = 1 End If ' xlsx ファイルに保存 workbook.Save("MergeCells.xlsx")