C#/VB.NET Excel数据分列

C#/VB.NET Excel数据分列

有时候我们需要将保存在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 = newWorkbook();
           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 (intj = 0; j < splitText.Length; j++)
               {
                   sheet.Range[i + 1, 1 + j + 1].Text = splitText[j];
               }
            }
           book.SaveToFile("输出.xlsx",ExcelVersion.Version2010);
            System.Diagnostics.Process.Start("输出.xlsx");
        }
    }
}

VB.NET：

Imports Spire.Xls
 
Namespace Split_Column_Data_to_Several_Columns
                ClassProgram
                                PrivateShared Sub Main(args As String())
                                                Dimbook As New Workbook()
                                                book.LoadFromFile("测试.xlsx")
                                                Dimsheet As Worksheet = book.Worksheets(0)
                                                DimsplitText As String() = Nothing
                                                Dimtext As String = Nothing
                                                Fori As Integer = 1 To sheet.LastRow - 1
                                                                text= sheet.Range(i + 1, 1).Text
                                                                splitText= text.Split("·"C)
                                                                Forj As Integer = 0 To splitText.Length - 1
                                                                                sheet.Range(i+ 1, 1 + j + 1).Text = splitText(j)
                                                                Next
                                                Next
                                                book.SaveToFile("输出.xlsx",ExcelVersion.Version2010)
                                EndSub
                EndClass
End Namespace