怎么用VBA实现，将sheet1中的AF列的可见单元格，复制粘贴到sheet2的Y4开始的单元

在VBA (Visual Basic for Applications) 中，你可以使用 `Range` 对象、`Copy` 和 `PasteSpecial` 方法来实现从 Sheet1 的 AF 列选择可见单元格并复制到 Sheet2 的 Y4 开始位置。以下是具体的步骤：

Sub CopyVisibleCells()
    ' 定义源工作表和目标工作表
    Dim wsSource As Worksheet
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    
    Dim wsDestination As Worksheet
    Set wsDestination = ThisWorkbook.Sheets("Sheet2")
    
    ' 定义源列和目标范围
    Dim srcColumn As Range
    Set srcColumn = wsSource.Range("AF:A") ' 使用 AF 列

    Dim destRange As Range
    Set destRange = wsDestination.Cells(4, "Y") ' Y4 开始的位置
    
    ' 遍历源列，只复制可见单元格
    For Each cell In srcColumn
        If Not Application.Intersect(cell, srcColumn.EntireRow).IsEmpty Then
            ' 如果单元格可见，则复制
            cell.Copy
        End If
    Next cell
    
    ' 将已选中的内容粘贴到目标范围
    destRange.PasteSpecial xlPasteValues ' 只粘贴值，不保留格式
    ' 关闭粘贴确认提示，如果需要的话
    Application.CutCopyMode = False
End Sub

运行这个 VBA 函数后，就会把 Sheet1 的 AF 列中所有可见的单元格复制到 Sheet2 的 Y4 后续位置。