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

    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)
            If (changingRow Is Nothing) Then
                changingRow = toSheet.CreateRow(toRowIndex)
            End If

            changingCell = changingRow.GetCell(toColIndex)
            If (changingCell Is Nothing) Then
                changingCell = chang