C#/VB.NET Excel数据分列

C#/VB.NET Excel数据分列

有时我们必要将保留在Excel单元格中的组合型数据拆分为多列(如将全名拆分为姓和名两列)以有益大家处理、回想或保存。为了避免重新和多量的手动输入工作,Excel给大家提供了二个数额分列的效应。上面那幅图显示了什么样在Excel中落到实处数据分列:

 图片 1                      

那篇文章将介绍怎么着使用C#和VB.NET编制程序的法门来落到实处Excel数据分列的遵守。

手续和代码:

第一步:创办1个新的Workbook类的靶子,并加载Excel文书档案。

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

 

第二步:获取Excel文书档案中存放需求被拆分的数目标工作表,那里是率先个工作表。

Worksheet sheet = book.Worksheets[0];

 

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

开始化2个字符串数组和3个字符串,遍历工作表中的钦点行,按分隔符号(·)将数据为真名的那一列拆分为姓和名两列并将结果保存到字符串数组中,然后将数组的剧情赋值给工作表的另两列。

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);

 

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

图片 2

全部代码:

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

 (注意:那里自个儿利用了1个免费的Excel组件

相关文章