将非连续选择从工作簿复制到另一个工作簿

Question

我将数据从工作簿复制到另一个工作簿，复制single contiguous selection没有问题
但是，如果我复制了两个选择(使用CTRL(，即使是相邻的，也不会将任何内容复制到目标工作簿(没有出现错误(
如何调整以下代码使其从工作簿复制非连续选择到另一个工作簿
提前感谢您的有用回答和评论

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
srg.Copy
drg.PasteSpecial Paste:=xlPasteColumnWidths

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

Answer 1

这个答案指的是@carma
我只需要复制列宽度，然后复制后面的值。

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