VBA 选定列的数据放在数据

在VBA（Visual Basic for Applications）中，如果你想把选定的列数据复制到另一个位置，可以使用`Copy` 和 `PasteSpecial` 方法。以下是一个基本的例子，假设我们从A列复制数据并粘贴到B列：

Sub CopyAndPasteColumnData()
    Dim sourceRange As Range
    Dim destinationRange As Range
    
    ' 选定源列 (例如 A 列)
    Set sourceRange = Selection ' 如果用户已经选定了某个范围
    If sourceRange Is Nothing Then
        Set sourceRange = Worksheets("Sheet1").Columns("A") ' 如果没有选中，则默认全选A列
    End If

    ' 创建目标列范围，这里是B列
    Set destinationRange = Worksheets("Sheet1").Columns("B")

    ' 复制数据
    sourceRange.Copy
    
    ' 将数据粘贴到B列，使用No Formatting选项，仅保留数值和公式
    destinationRange.PasteSpecial xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

上述代码首先获取选中的范围或者整个A列，然后复制到剪贴板，最后粘贴到B列，并保留原始格式。