上下标常见于数学公式、化学表达式等科学公式中。本文将介绍如何使用Spire.XLS在Excel中插入上标和下标。

//创建Workbook实例
Workbook workbook = new Workbook();

//获取第一张工作表
Worksheet sheet = workbook.Worksheets[0];

//向单元格“A2”中写入数学公式
CellRange range = sheet.Range["A2"];
range.RichText.Text = "a2+b2=c2";
//设置上标
ExcelFont font = workbook.CreateFont();
font.IsSuperscript = true;
font.Color = Color.Red;
range.RichText.SetFont(1, 1, font);
range.RichText.SetFont(4, 4, font);
range.RichText.SetFont(7, 7, font);

//向单元格“A4”中写入化学方程式
range = sheet.Range["A4"];
range.RichText.Text = "2Na+2H2O=2NaOH+H2";
//设置下标
font = workbook.CreateFont();
font.IsSubscript = true;
font.Color = Color.ForestGreen;
range.RichText.SetFont(6, 6, font);
range.RichText.SetFont(16, 16, font);

//自适应列宽
sheet.Range.AutoFitColumns();

//保存文档
workbook.SaveToFile("Output.xlsx", ExcelVersion.Version2013);

'创建Workbook实例
Dim workbook As New Workbook()

'获取第一张工作表
Dim sheet As Worksheet = workbook.Worksheets(0)

'向单元格“A2”中写入数学公式
Dim range As CellRange = sheet.Range("A2")
range.RichText.Text = "a2+b2=c2"
'设置上标
Dim font As ExcelFont = workbook.CreateFont()
font.IsSuperscript = True
font.Color = Color.Red
range.RichText.SetFont(1, 1, font)
range.RichText.SetFont(4, 4, font)
range.RichText.SetFont(7, 7, font)

'向单元格“A4”中写入化学方程式
range = sheet.Range("A4")
range.RichText.Text = "2Na+2H2O=2NaOH+H2"
'设置下标
font = workbook.CreateFont()
font.IsSubscript = True
font.Color = Color.ForestGreen
range.RichText.SetFont(6, 6, font)
range.RichText.SetFont(16, 16, font)

'自适应列宽
sheet.Range.AutoFitColumns()

'保存文档
workbook.SaveToFile("Output.xlsx", ExcelVersion.Version2013)

效果图：