//create a new workbook var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet sheet = workbook.ActiveSheet; sheet.Range["A2:E2"].Merge(); sheet.Range["A2:E2"].Value = "Data"; sheet.Range["A2:E2"].HorizontalAlignment = HorizontalAlignment.Center; sheet.Range["A2:E2"].Font.Bold = true; sheet.Range["A3:E8"].Value = new object[,] { { "Product", "Category", "Unit Price", "Quantity", "Total" }, { "Phone", "Electronics", 899.99, 2, 1799.98 }, { "Headphones", "Accessories", 199.50, 3, 598.50 }, { "Laptop", "Electronics", 3499.00, 1, 3499.00 }, { "Mouse", "Accessories", 99.99, 4, 399.96 }, { "Keyboard", "Office", 149.00, 2, 298.00 }, }; sheet.Range["G1"].Value = "Formula"; sheet.Range["G2"].Value = "=TRIMRANGE(A:E)"; sheet.Range["G3"].Value = "Result"; sheet.Range["G4"].Formula2 = "=TRIMRANGE(A:E)"; sheet.Range["H3"].Value = "Rows:"; sheet.Range["I3"].Formula2 = "=ROWS(TRIMRANGE(A:E))"; sheet.Range["J3"].Value = "Columns:"; sheet.Range["K3"].Formula2 = "=COLUMNS(TRIMRANGE(A:E))"; sheet.Range["G1, G3, H3, J3"].Font.Bold = true; sheet.Range["G12"].Value = "Trim Reference"; sheet.Range["G13"].Value = "=A:.E"; sheet.Range["G14"].Value = "Result"; sheet.Range["G15"].Formula2 = "=A:.E"; sheet.Range["H14"].Value = "Rows:"; sheet.Range["I14"].Formula2 = "=ROWS(A:.E)"; sheet.Range["J14"].Value = "Columns:"; sheet.Range["K14"].Formula2 = "=COLUMNS(A:.E)"; sheet.Range["G12, G14, H14, J14"].Font.Bold = true; sheet.Range["A:K"].AutoFit(); // Save to an excel file workbook.Save("TrimRangeFunctionAndTrimReferences.xlsx");
' Create a new Workbook Dim workbook As New Workbook Dim sheet As IWorksheet = workbook.ActiveSheet sheet.Range("A2:E2").Merge() sheet.Range("A2:E2").Value = "Data" sheet.Range("A2:E2").HorizontalAlignment = HorizontalAlignment.Center sheet.Range("A2:E2").Font.Bold = True sheet.Range("A3:E8").Value = New Object(,) { {"Product", "Category", "Unit Price", "Quantity", "Total"}, {"Phone", "Electronics", 899.99, 2, 1799.98}, {"Headphones", "Accessories", 199.5, 3, 598.5}, {"Laptop", "Electronics", 3499.0, 1, 3499.0}, {"Mouse", "Accessories", 99.99, 4, 399.96}, {"Keyboard", "Office", 149.0, 2, 298.0} } sheet.Range("G1").Value = "Formula" sheet.Range("G2").Value = "=TRIMRANGE(A:E)" sheet.Range("G3").Value = "Result" sheet.Range("G4").Formula2 = "=TRIMRANGE(A:E)" sheet.Range("H3").Value = "Rows:" sheet.Range("I3").Formula2 = "=ROWS(TRIMRANGE(A:E))" sheet.Range("J3").Value = "Columns:" sheet.Range("K3").Formula2 = "=COLUMNS(TRIMRANGE(A:E))" sheet.Range("G1, G3, H3, J3").Font.Bold = True sheet.Range("G12").Value = "Trim Reference" sheet.Range("G13").Value = "=A:.E" sheet.Range("G14").Value = "Result" sheet.Range("G15").Formula2 = "=A:.E" sheet.Range("H14").Value = "Rows:" sheet.Range("I14").Formula2 = "=ROWS(A:.E)" sheet.Range("J14").Value = "Columns:" sheet.Range("K14").Formula2 = "=COLUMNS(A:.E)" sheet.Range("G12, G14, H14, J14").Font.Bold = True sheet.Range("A:K").AutoFit() ' save to an excel file workbook.Save("TrimRangeFunctionAndTrimReferences.xlsx")