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元件）