本文介绍使用Spire.XLS for .NET来复制Excel中的指定单元格区域，包括复制单元格文本及单元格样式。复制时，可在工作簿中的同一个sheet工作表内复制，也可在不同工作簿的不同sheet工作表间复制。

在同一个sheet工作表中复制

using Spire.Xls;

namespace CopyRanges_XLS
{
    class Program
    {
        static void Main(string[] args)
        {
            //加载Excel工作簿
            Workbook book = new Workbook();
            book.LoadFromFile("sample.xlsx", ExcelVersion.Version2013);

            //获取第一个工作表
            Worksheet sheet = book.Worksheets[0];

            //将源数据数据复制到目标单元格区域
            sheet.Copy(sheet.Range["A1:F1"], sheet.Range["A6:F6"], true);

            //保存文档
            book.SaveToFile("result.xlsx", ExcelVersion.Version2013);
            System.Diagnostics.Process.Start("result.xlsx");
        }
    }
}

Imports Spire.Xls

Namespace CopyRanges_XLS
	Class Program
		Private Shared Sub Main(args As String())
			'加载Excel工作簿 Dim book As New Workbook() book.LoadFromFile("sample.xlsx",ExcelVersion.Version2013) '获取第一个工作表
			Dim sheet As Worksheet = book.Worksheets(0)

			'将源数据数据复制到目标单元格区域 sheet.Copy(sheet.Range("A1:F1"),sheet.Range("A6:F6"),True) '保存文档
			book.SaveToFile("result.xlsx", ExcelVersion.Version2013)
			System.Diagnostics.Process.Start("result.xlsx")
		End Sub
	End Class
End Namespace

在不同工作簿的sheet工作表间复制

using Spire.Xls;

namespace CopyRanges2
{
    class Program
    {
        static void Main(string[] args)
        {
            //加载Excel工作簿1
            Workbook book1 = new Workbook();
            book1.LoadFromFile("sample.xlsx", ExcelVersion.Version2013);
            //加载Excel工作簿2
            Workbook book2 = new Workbook();
            book2.LoadFromFile("test.xlsx");

            //获取工作表
            Worksheet sheet1 = book1.Worksheets[0];
            Worksheet sheet2 = book2.Worksheets[1];

            //将源数据数据复制到目标单元格区域
            sheet1.Copy(sheet1.Range["A1:F1"], sheet2.Range["B4:G4"], true);

            //保存工作簿2
            book2.SaveToFile("result2.xlsx", ExcelVersion.Version2013);
            System.Diagnostics.Process.Start("result2.xlsx");
        }
    }
}

Imports Spire.Xls
Namespace CopyRanges2
	Class Program
		Private Shared Sub Main(args As String())
			'加载Excel工作簿1 Dim book1 As New Workbook() book1.LoadFromFile("sample.xlsx",ExcelVersion.Version2013) '加载Excel工作簿2
			Dim book2 As New Workbook()
			book2.LoadFromFile("test.xlsx")
			'获取工作表 Dim sheet1 As Worksheet = book1.Worksheets(0) Dim sheet2 As Worksheet = book2.Worksheets(1) '将源数据数据复制到目标单元格区域
			sheet1.Copy(sheet1.Range("A1:F1"), sheet2.Range("B4:G4"), True)
			'保存工作簿2 book2.SaveToFile("result2.xlsx",ExcelVersion.Version2013) System.Diagnostics.Process.Start("result2.xlsx") End Sub End Class End Namespace

另外，可查看复制工作表、复制单元格格式等相关文章，获取更多复制Excel的方法。