PM> Install-Package Spire.XLS

using System.Drawing;
using Spire.Xls;
using Spire.Xls.Charts;

namespace ColumnChart
{
    class Program
    {
        static void Main(string[] args)
        {
            //Workbookインスタンスを作成する
            Workbook workbook = new Workbook();

            //最初のシートを取得する
            Worksheet sheet = workbook.Worksheets[0];

            //指定したセルにデータを追加する
            sheet.Range["A1"].Value = "国";
            sheet.Range["A2"].Value = "キューバ.";
            sheet.Range["A3"].Value = "メキシコ.";
            sheet.Range["A4"].Value = "フランス.";
            sheet.Range["A5"].Value = "ドイツ.";

            sheet.Range["B1"].Value = " A社";
            sheet.Range["B2"].NumberValue = 5000;
            sheet.Range["B3"].NumberValue = 8000;
            sheet.Range["B4"].NumberValue = 9000;
            sheet.Range["B5"].NumberValue = 8500;

            sheet.Range["C1"].Value = "B社";
            sheet.Range["C2"].NumberValue = 3000;
            sheet.Range["C3"].NumberValue = 5000;
            sheet.Range["C4"].NumberValue = 7000;
            sheet.Range["C5"].NumberValue = 6000;

            //セルスタイルを設定する
            sheet.Range["A1:C1"].Style.Font.IsBold = true;
            sheet.Range["A1:C1"].Style.KnownColor = ExcelColors.Black;
            sheet.Range["A1:C1"].Style.Font.Color = Color.White;
            sheet.Range["A1:C5"].Style.HorizontalAlignment = HorizontalAlignType.Center;
            sheet.Range["A1:C5"].Style.VerticalAlignment = VerticalAlignType.Center;

            //数値のフォーマットを設定する
            sheet.Range["B2:C5"].Style.NumberFormat = "\"$\"#,##0";

            //シートに集合縦棒グラフを追加する
            Chart chart = sheet.Charts.Add(ExcelChartType.ColumnClustered);

            //グラフのデータ範囲を設定する
            chart.DataRange = sheet.Range["A1:C5"];
            chart.SeriesDataFromRange = false;

            //グラフの位置を設定する
            chart.LeftColumn = 1;
            chart.TopRow = 7;
            chart.RightColumn = 11;
            chart.BottomRow = 29;

            //グラフのタイトルの設定と書式設定
            chart.ChartTitle = " A社とB社の販売状況";
            chart.ChartTitleArea.Font.Size = 13;
            chart.ChartTitleArea.Font.IsBold = true;

            //カテゴリ軸の設定と書式設定
            chart.PrimaryCategoryAxis.Title = "国";
            chart.PrimaryCategoryAxis.Font.Color = Color.Blue;

            //値軸の設定と書式設定
            chart.PrimaryValueAxis.Title = "売上高";
            chart.PrimaryValueAxis.HasMajorGridLines = false;
            chart.PrimaryValueAxis.MinValue = 1000;
            chart.PrimaryValueAxis.TitleArea.TextRotationAngle = 90;

            //データポイントのデータラベルを表示する 
            foreach (ChartSerie cs in chart.Series)
            {
                cs.Format.Options.IsVaryColor = true;
                cs.DataPoints.DefaultDataPoint.DataLabels.HasValue = true;
            }

            //グラフの凡例の位置を設定する
            chart.Legend.Position = LegendPositionType.Top;

            //結果文書を保存する
            workbook.SaveToFile("ExcelColumnChart.xlsx", ExcelVersion.Version2010);
        }
    }
}

Imports Spire.Xls
Imports Spire.Xls.Charts

Namespace ColumnChart
    Class Program
        Private Shared Sub Main(ByVal args() As String)

            'Workbookインスタンスを作成する
            Dim workbook As Workbook = New Workbook

            '最初のシートを取得する
            Dim sheet As Worksheet = workbook.Worksheets(0)

            '指定したセルにデータを追加する
            sheet.Range("A1").Value = "国"
            sheet.Range("A2").Value = "キューバ. "
            sheet.Range("A3").Value = "メキシコ. "
            sheet.Range("A4").Value = "フランス. "
            sheet.Range("A5").Value = "ドイツ. "

            sheet.Range("B1").Value = " A社"
            sheet.Range("B2").NumberValue = 5000
            sheet.Range("B3").NumberValue = 8000
            sheet.Range("B4").NumberValue = 9000
            sheet.Range("B5").NumberValue = 8500

            sheet.Range("C1").Value = " B社"
            sheet.Range("C2").NumberValue = 3000
            sheet.Range("C3").NumberValue = 5000
            sheet.Range("C4").NumberValue = 7000
            sheet.Range("C5").NumberValue = 6000

            'セルスタイルを設定する
            sheet.Range("A1:C1").Style.Font.IsBold = True
            sheet.Range("A1:C1").Style.KnownColor = ExcelColors.Black
            sheet.Range("A1:C1").Style.Font.Color = Color.White
            sheet.Range("A1:C5").Style.HorizontalAlignment = HorizontalAlignType.Center
            sheet.Range("A1:C5").Style.VerticalAlignment = VerticalAlignType.Center

            '数値のフォーマットを設定する
            sheet.Range("B2:C5").Style.NumberFormat = """$""#,##0"

            'シートに集合縦棒グラフを追加する
            Dim chart As Chart = sheet.Charts.Add(ExcelChartType.ColumnClustered)

            'グラフのデータ範囲を設定する
            chart.DataRange = sheet.Range("A1:C5")
            chart.SeriesDataFromRange = False

            'グラフの位置を設定する
            chart.LeftColumn = 1
            chart.TopRow = 7
            chart.RightColumn = 11
            chart.BottomRow = 29

            'グラフのタイトルの設定と書式設定
            chart.ChartTitle = " A社とB社の販売状況"
            chart.ChartTitleArea.Font.Size = 13
            chart.ChartTitleArea.Font.IsBold = True

            'カテゴリ軸の設定と書式設定
            chart.PrimaryCategoryAxis.Title = "国"
            chart.PrimaryCategoryAxis.Font.Color = Color.Blue

            '値軸の設定と書式設定
            chart.PrimaryValueAxis.Title = "売上高"
            chart.PrimaryValueAxis.HasMajorGridLines = False
            chart.PrimaryValueAxis.MinValue = 1000
            chart.PrimaryValueAxis.TitleArea.TextRotationAngle = 90

            'データポイントのデータラベルを表示する 
            For Each cs As ChartSerie In chart.Series
                cs.Format.Options.IsVaryColor = True
                cs.DataPoints.DefaultDataPoint.DataLabels.HasValue = True
            Next

            'グラフの凡例の位置を設定する
            chart.Legend.Position = LegendPositionType.Top

            '結果文書を保存する
            workbook.SaveToFile("ExcelColumnChart.xlsx", ExcelVersion.Version2010)
        End Sub
    End Class
End Namespace