计数并复制动态范围 VBA

下面是一个示例代码，可以计算并复制指定动态范围的数据：

Sub CountAndCopyDynamicRange()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rangeToCopy As Range
    Dim count As Integer
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 定义要复制的范围
    Set rangeToCopy = ws.Range("A1:A" & lastRow)
    
    ' 计算数据的数量
    count = rangeToCopy.Cells.Count
    
    ' 将数据复制到新的范围
    rangeToCopy.Copy ws.Range("B1")
    
    ' 在B列的下一行显示计数
    ws.Cells(lastRow + 1, "B").Value = "Count: " & count
End Sub

这个示例代码假设你要在名为"Sheet1"的工作表中计算和复制A列的数据。你可以根据需要修改工作表的名称和数据范围。计算的结果将会显示在B列的下一行。