如何在VBA中声明Excel动态单元格区域？解决代码1004运行错误

别担心，你的代码里有几个基础语法和逻辑问题，调整后就能完美实现动态选取B列从B2到最后填充行的区域并复制到日志表的需求了。先梳理下原代码里的核心问题：

原代码的错误点 #

• 变量类型声明错误：Top, Bottom, Left, Right As Long 里只有Right被声明为Long类型，其余三个是默认的Variant，但你需要Top作为Range对象，得单独声明类型。
• LastRow获取方式错误：LastRow = Cells(Rows.Count, "B").End(xlUp).Select 这里Select是执行选中操作，不能赋值给变量，应该直接取该行的行号。
• Range引用错误：Range("Top", "LastRow") 把变量名当成了字符串常量，VBA会识别成名为"Top"和"LastRow"的单元格，而非你定义的变量。
• 不必要的Activate/Select：VBA里尽量避免用Activate和Select，直接操作对象更高效，也能减少错误概率。

修正后的代码 #

Sub CopyRows()
    Dim shtData As Worksheet
    Dim shtLog As Worksheet
    Dim lastRowB As Long
    Dim targetRange As Range
    
    ' 定义数据源工作表和日志工作表
    Set shtData = ThisWorkbook.Worksheets("Data")
    Set shtLog = ThisWorkbook.Worksheets("日志") ' 假设日志表名为"日志"，可按需修改
    
    ' 获取B列最后一个已填充单元格的行号
    lastRowB = shtData.Cells(shtData.Rows.Count, "B").End(xlUp).Row
    
    ' 定义目标区域：从B2到B列最后一行
    Set targetRange = shtData.Range("B2:B" & lastRowB)
    
    ' 复制到日志表的指定位置（比如日志表A列第一个空行）
    targetRange.Copy Destination:=shtLog.Cells(shtLog.Rows.Count, "A").End(xlUp).Offset(1, 0)
End Sub

代码细节说明 #

1. 变量严谨定义：明确声明工作表和Range对象，避免类型混淆导致的隐性错误。
2. 动态获取最后一行：shtData.Cells(shtData.Rows.Count, "B").End(xlUp).Row 能精准定位B列最后一个有内容的单元格行号，不管数据量变化都能适配。
3. 灵活构建目标区域：如果需要复制整行（而非仅B列），可以把目标区域改成：

   Set targetRange = shtData.Range("A2:" & shtData.Cells(lastRowB, shtData.Columns.Count).Address)
   

   要是只需要复制B到D列，就改成：

   Set targetRange = shtData.Range("B2:D" & lastRowB)
   

4. 高效复制粘贴：用Copy Destination:=... 一步完成复制粘贴，不需要先复制再选择粘贴环节，简洁又可靠。

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