excel - 选择要与选择本身联合的选择标题？

Question

通过使用手动选择，我将范围从工作簿复制到另一个工作簿。
但是，如何选择该选区的标题以与选区本身结合，以实现一次复制和粘贴。
标题 在第一行找到。例如，连续选择如果我选择范围 “B3:D5” , 随后我需要选择 ”B1:D1”和 union范围 “B3:D5” .
例如，非连续选择 如果我选择范围 “B3:D5,F3:F5” , 随后我需要选择 ”B1:D1,F1”和 union范围 “B3:D5,F3:F5”复制连续选择和非连续选择(在同一行中)没有问题。
在此先感谢有用的答案和评论。

Dim wb As Workbook: Set wb = ThisWorkbook    'Source Workbook
Dim srg As Range: Set srg = wb.ActiveSheet.Range(Selection.Address)

Dim wb1 As Workbook: Set wb1 = Workbooks.Add  'Destination Workbook
Dim drg As Range: Set drg = wb1.Sheets(1).Range("A1")

srg.Copy
drg.PasteSpecial Paste:=xlPasteColumnWidths
srg.Copy drg      

Dim r As Range
  For Each r In drg.Rows
  r.WrapText = True
    If r.RowHeight < 40 Then r.RowHeight = 40  
       Next r

Answer 1

如果您希望选定范围与第一行联合，请尝试此操作

Dim srg As Range
Dim src As Range
Dim arr As Range
Set src = Selection
For Each arr In src.Areas
    If srg Is Nothing Then
        Set srg = Application.Union(arr, arr.EntireColumn.Rows(1))
    Else
        Set srg = Application.Union(srg, arr, arr.EntireColumn.Rows(1))
    End If
Next