VBA如何使用单元格值作为选中区域的结束范围

问题核心原因 #

1. 你代码中Range("B1:B(var)")的写法错误：VBA不会自动识别字符串内部的变量，需要用字符串拼接符&把变量和固定字符串拼接在一起，正确的动态范围写法是Range("B1:B" & var)
2. 现有循环缺少i = i + 1的自增逻辑，运行会进入死循环；且该场景完全不需要循环，单次操作即可完成需求，执行效率更高。

最优实现代码（无需剪贴板，直接赋值，运行最快） #

Sub copy_loop()
    Dim var As Integer
    ' 读取E1的数值作为范围行数
    var = Range("E1").Value
    ' 直接给B列目标范围批量赋值A1的内容
    Range("B1:B" & var).Value = Range("A1").Value
End Sub

保留复制粘贴逻辑的实现（会占用剪贴板） #

Sub copy_loop_copy_version()
    Dim var As Integer
    var = Range("E1").Value
    ' 直接指定复制源和粘贴目标，不需要逐行操作
    Range("A1").Copy Destination:=Range("B1:B" & var)
End Sub

原有循环写法的修正版（仅做逻辑修正，不推荐使用，效率远低于上述写法） #

Sub copy_loop_old_version_fixed()
    Dim var As Integer, i As Integer
    var = Range("E1").Value
    i = 1
    Do Until i > var
        Range("A1").Copy Destination:=Range("B" & i)
        ' 必须加i自增，否则会进入死循环
        i = i + 1
    Loop
End Sub

内容的提问来源于stack exchange，提问作者jshvt17