C#/VB.NET Excel数据分列

Posted E-iceblue

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了C#/VB.NET Excel数据分列相关的知识,希望对你有一定的参考价值。

C#/VB.NET Excel数据分列

有时候我们需要将保存在Excel单元格中的组合型数据拆分为多列(如将全名拆分为姓和名两列)以方便我们处理、记忆或保存。为了避免重复和大量的手动输入工作,Excel给我们提供了一个数据分列的功能。下面这幅图展示了如何在Excel中实现数据分列:

                       

这篇文章将介绍如何使用C#和VB.NET编程的方式来实现Excel数据分列的功能。

步骤和代码:

第一步:创建一个新的Workbook类的对象,并加载Excel文档。

Workbook book = new Workbook();
book.LoadFromFile("测试.xlsx");

 

第二步:获取Excel文档中存放需要被拆分的数据的工作表,这里是第一个工作表。

Worksheet sheet = book.Worksheets[0];

 

第三步:按分隔符号将数据拆分为多列。

初始化一个字符串数组和一个字符串,遍历工作表中的指定行,按分隔符号(·)将数据为全名的那一列拆分为姓和名两列并将结果保存到字符串数组中,然后将数组的内容赋值给工作表的另两列。

string[] splitText = null;
string text = null;
for (int i = 1; i < sheet.LastRow; i++)
{
    text = sheet.Range[i + 1, 1].Text;
    splitText = text.Split(\'·\');
    for (int j = 0; j < splitText.Length; j++)
    {
        sheet.Range[i + 1, 1 + j + 1].Text = splitText[j];
    }
} 

 

第四步:保存文档。

book.SaveToFile("输出.xlsx", ExcelVersion.Version2010);

 

运行代码,得到如下结果:

全部代码:

C#:

using Spire.Xls;

namespace Split_Column_Data_to_Several_Columns
{
    class Program
    {
        static void Main(string[] args)
        {
            Workbook book = new Workbook();
            book.LoadFromFile("测试.xlsx");
            Worksheet sheet = book.Worksheets[0];

            string[] splitText = null;
            string text = null;
            for (int i = 1; i < sheet.LastRow; i++)
            {
                text = sheet.Range[i + 1, 1].Text;
                splitText = text.Split(\'·\');
                for (int j = 0; j < splitText.Length; j++)
                {
                    sheet.Range[i + 1, 1 + j + 1].Text = splitText[j];
                }
            }

            book.SaveToFile("输出.xlsx", ExcelVersion.Version2010);
        }
    }
}

VB.NET:

Imports Spire.Xls

Namespace Split_Column_Data_to_Several_Columns
                Class Program
                                Private Shared Sub Main(args As String())
                                                Dim book As New Workbook()
                                                book.LoadFromFile("测试.xlsx")
                                                Dim sheet As Worksheet = book.Worksheets(0)
                                                Dim splitText As String() = Nothing
                                                Dim text As String = Nothing
                                                For i As Integer = 1 To sheet.LastRow - 1
                                                                text = sheet.Range(i + 1, 1).Text
                                                                splitText = text.Split("·"C)
                                                                For j As Integer = 0 To splitText.Length - 1
                                                                                sheet.Range(i + 1, 1 + j + 1).Text = splitText(j)
                                                                Next
                                                Next

                                                book.SaveToFile("输出.xlsx", ExcelVersion.Version2010)
                                End Sub
                End Class
End Namespace

 (注意:这里我使用了一个免费的Excel组件

以上是关于C#/VB.NET Excel数据分列的主要内容,如果未能解决你的问题,请参考以下文章

C#/VB.NET 获取Excel中的表单控件

C#/VB.NET 获取Excel中图片所在的行列坐标位置

C#/VB.NET 将PDF转为Excel

从 Excel 导入数据 - VB.NET

将数据从 Excel 复制到 SQL 数据库 VB.NET

vb.net 导出PDF