Excel複製某一行整行（包括格式），並將複製的行複製到某一個區域

需求：

1. 複製一整行的單元格（包括格式）
2. 新增多行單元格，(直接插入多行)
3. 拷貝的行格式作用到新插入的行
4. 將數據寫入新添加的行單元格裏面

代碼

• 引入

Imports System.Data.SqlClient
Imports System.IO
Imports System.Text
Imports HeianSeisaku.SystemConst
Imports Microsoft.Office.Interop.Excel
Imports DataTable = System.Data.DataTable
Imports TextBox = System.Windows.Forms.TextBox

• 重點

        ' 選中要複製整行格式的位置， 案例中是B9
        Dim sourceRange As Range = worksheet.Range("B9").EntireRow
        ' 拷貝整行（包括改行的格式）
        sourceRange.Copy()
        ' 設置要將拷貝的行（帶格式）複製到那個部分（那行到哪一行）
        ' 案例中是設置將拷貝的B9這一行（包括格式）複製到10~20行這個區間
        Dim targetRange As Range = worksheet.Range($"B10:B20").EntireRow
        ' 實際執行插入（新增）10~20行這個操作，並將拷貝的B9這一行（包括格式）並粘貼到10~20行
        targetRange.Insert(XlInsertShiftDirection.xlShiftDown)
        ' 清空粘貼板，以備下次重新複製粘貼使用
        excelApp.CutCopyMode = False

• 具體