C#C#/VB.NET Excel数据分列

C#/VB.NET Excel数据分列

有时我们要用保留在Excel单元格中的组合型数据拆分为多排列(如用皆名叫拆分为姓氏和名两列)以利我们处理、记忆还是保存。为了避免双重与大量之手动输入工作,Excel给咱提供了一个数码分列的法力。下面就幅图显示了什么当Excel中贯彻多少分列:

 C# 1                      

立刻首文章以介绍如何使用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#,得到如下结果:

C# 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

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

相关文章