VBA提取A2,B2,C2,D2,E2内容复制到K2单元格内

在VBA（Visual Basic for Applications）中，你可以使用`Range`对象的`Value`属性以及数组来一次性将多个单元格的内容复制到目标位置。以下是创建一个脚本，用于提取A2至E2的值并复制到K2单元格内的例子：

Sub CopyMultipleCells()
    Dim sourceRange As Range
    Set sourceRange = Range("A2:E2") ' 定义源范围为A2到E2
    Dim targetCell As Range
    Set targetCell = Range("K2")     ' 定义目标细胞为K2

    ' 将源范围的值复制到临时数组
    Dim values() As Variant
    values = sourceRange.Value
    
    ' 将数组数据粘贴到目标单元格
    targetCell.Value = values ' 直接赋值给目标单元格
End Sub

运行这个VBA宏后，A2、B2、C2、D2和E2的值就会被复制到K2单元格。