创建一个宏以将一系列单元格复制并粘贴到下一个可用的空单元格。

以下是一个示例代码，用于创建一个宏以将一系列单元格复制并粘贴到下一个可用的空单元格：

Sub CopyPasteToNextAvailableCell()
    Dim sourceRange As Range
    Dim destinationRange As Range
    
    ' 设置源范围，可以修改为你想要复制的单元格范围
    Set sourceRange = Range("A1:A5")
    
    ' 搜索下一个可用的空单元格
    Set destinationRange = Cells(Rows.Count, sourceRange.Column).End(xlUp).Offset(1)
    
    ' 复制源范围到目标范围
    sourceRange.Copy destinationRange
End Sub

这个宏首先设置了源范围，可以根据你想要复制的单元格范围进行修改。然后它使用xlUp方法搜索源范围列的最后一个非空单元格，并通过Offset(1)找到下一个可用的空单元格。最后，它使用Copy方法将源范围复制到目标范围。

你可以使用VBA编辑器将这个代码插入到你的Excel工作簿中的一个模块中，然后通过按下快捷键或运行宏来执行它。