C#/VB.NET Excel数据分列

如果你不相信努力和时光,那么成果就会是第一个选择辜负你的。不要去否定你自己的过去,也不要用你的过去牵扯你现在的努力和对未来的展望。不是因为拥有希望你才去努力,而是去努力了,你才有可能看到希望的光芒。C#/VB.NET Excel数据分列,希望对大家有帮助,欢迎收藏,转发!站点地址:www.bmabk.com,来源:原文

C#/VB.NET Excel数据分列

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

 C#/VB.NET 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#/VB.NET Excel数据分列

全部代码:

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组件

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

文章由极客之音整理,本文链接:https://www.bmabk.com/index.php/post/209548.html

(0)
小半的头像小半

相关推荐

极客之音——专业性很强的中文编程技术网站,欢迎收藏到浏览器,订阅我们!