PM> Install-Package Spire.XLS

using Spire.Xls;
using Spire.Xls.Core;
using Spire.Xls.Core.Spreadsheet.Collections;
using Spire.Xls.Core.Spreadsheet.ConditionalFormatting;
using System.Drawing;

namespace ApplyDataBar
{
    class Program
    {
        static void Main(string[] args)
        {
            //创建Workbook实例
            Workbook workbook = new Workbook();

            //加载Excel文档示例
            workbook.LoadFromFile("示例文档.xlsx");

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

            //向工作表中添加条件格式
            XlsConditionalFormats xcfs = sheet.ConditionalFormats.Add();

            //设置应用条件格式的范围
            xcfs.AddRange(sheet.Range["C2:C16"]);

            //添加条件并将其格式类型设置为DataBar
            IConditionalFormat format = xcfs.AddCondition();
            format.FormatType = ConditionalFormatType.DataBar;

            //设置数据条的填充效果和颜色
            format.DataBar.BarFillType = DataBarFillType.DataBarFillGradient;
            format.DataBar.BarColor = Color.Green;

            //保存结果文档
            workbook.SaveToFile("应用数据条到单元格范围.xlsx", ExcelVersion.Version2013);
        }
    }
}

Imports Spire.Xls
Imports Spire.Xls.Core
Imports Spire.Xls.Core.Spreadsheet.Collections
Imports Spire.Xls.Core.Spreadsheet.ConditionalFormatting
Imports System.Drawing

Namespace ApplyDataBar
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            '创建Workbook实例 Dim workbook As Workbook = New Workbook() '加载Excel文档示例
            workbook.LoadFromFile("示例文档.xlsx")

            '获取第一个工作表 Dim sheet As Worksheet = workbook.Worksheets(0) '向工作表中添加条件格式
            Dim xcfs As XlsConditionalFormats = sheet.ConditionalFormats.Add()

            '设置应用条件格式的范围 xcfs.AddRange(sheet.Range("C2:C16")) '添加条件并将其格式类型设置为DataBar
            Dim format As IConditionalFormat = xcfs.AddCondition()
            format.FormatType = ConditionalFormatType.DataBar

            '设置数据条的填充效果和颜色 format.DataBar.BarFillType = DataBarFillType.DataBarFillGradient format.DataBar.BarColor = Color.Green '保存结果文档
            workbook.SaveToFile("应用数据条到单元格范围.xlsx", ExcelVersion.Version2013)
        End Sub
    End Class
End Namespace