NPOI 将一个sheet指定区域复制到另一个sheet，复制数据，样式和备注

最新推荐文章于 2023-03-22 16:09:52 发布

原创

最新推荐文章于 2023-03-22 16:09:52 发布 · 7.3k 阅读

2 ·

CC 4.0 BY-SA版权

这个博客介绍了如何使用NPOI库在Excel中复制一个sheet的指定区域到另一个sheet，包括数据、样式和备注。提供了一个名为CopyRange的Sub过程，详细解释了代码逻辑，确保在复制过程中保留所有细节。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

    Private Sub CopyRange(ByRef fromSheet As HSSFSheet, ByRef toSheet As HSSFSheet, ByVal fromRowIndex As Integer, ByVal fromColIndex As Integer, ByVal toRowIndex As Integer, ByVal toColIndex As Integer, ByVal onlyData As Boolean, ByVal copyComment As Boolean)
        Dim sourceRow As HSSFRow = fromSheet.GetRow(fromRowIndex)
        Dim sourceCell As HSSFCell = sourceRow.GetCell(fromColIndex)
        If (Not sourceRow Is Nothing) And (Not sourceCell Is Nothing) Then

            Dim changingRow As HSSFRow = Nothing
            Dim changingCell As HSSFCell = Nothing
            changingRow = toSheet.GetRow(toRowIndex)
         &n