PM> Install-Package Spire.XLS

using Spire.Xls;

namespace CopyCellRange
{
    class Program
    {
        static void Main(string[] args)
        {
            //创建一个Workbook对象
            Workbook sourceBook = new Workbook();

            //加载源 Excel 文档
            sourceBook.LoadFromFile(@"C:\Users\Administrator\Desktop\测试文档.xlsx");

            //获取源工作表
            Worksheet sourceSheet = sourceBook.Worksheets[0];

            //获取源单元格区域
            CellRange sourceRange = sourceSheet.Range["A1:E4"];

            //创建另一个Workbook对象
            Workbook destBook = new Workbook();

            //加载目标工作簿
            destBook.LoadFromFile(@"C:\Users\Administrator\Desktop\目标文档.xlsx");

            //获取目标工作表
            Worksheet destSheet = destBook.Worksheets[0];

            //获取单元格区域
            CellRange destRange = destSheet.Range["B2:F5"];

            //将数据从源范围复制到目标范围
            sourceSheet.Copy(sourceRange, destRange);

            //循环遍历源范围中的列
            for (int i = 0; i < sourceRange.Columns.Length; i++)
            {
                //将列宽也从源范围复制到目标范围
                destRange.Columns[i].ColumnWidth = sourceRange.Columns[i].ColumnWidth;
            }

            //将目标工作簿保存到 Excel 文件
            destBook.SaveToFile("复制单元格范围.xlsx");
        }
    }
}

Imports Spire.Xls

Namespace CopyCellRange
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            '创建一个Workbook对象
            Dim sourceBook As Workbook = New Workbook()

            '加载源 Excel 文档
            sourceBook.LoadFromFile("C:\Users\Administrator\Desktop\测试文档.xlsx")

            '获取源工作表
            Dim sourceSheet As Worksheet = sourceBook.Worksheets(0)

            '获取源单元格区域
            Dim sourceRange As CellRange = sourceSheet.Range("A1:E4")

            '创建另一个Workbook对象
            Dim destBook As Workbook = New Workbook()

            '加载目标工作簿
            destBook.LoadFromFile("C:\Users\Administrator\Desktop\目标文档.xlsx")

            '获取目标工作表
            Dim destSheet As Worksheet = destBook.Worksheets(0)

            '获取单元格区域
            Dim destRange As CellRange = destSheet.Range("B2:F5")

            '将数据从源范围复制到目标范围
            sourceSheet.Copy(sourceRange, destRange)

            '循环遍历源范围中的列
            For i As Integer = 0 To sourceRange.Columns.Length - 1
                '将列宽也从源范围复制到目标范围
                destRange.Columns(i).ColumnWidth = sourceRange.Columns(i).ColumnWidth
            Next

            '将目标工作簿保存到 Excel 文件
            destBook.SaveToFile("复制单元格范围.xlsx")
        End Sub
    End Class
End Namespace