关于VBA中Offset用法及两段代码定义差异的技术咨询

先直接回应你的核心疑问：Offset(1, 0)确实是将单元格位置逐行向下移动1个单元格，接下来详细拆解两段代码的区别：

第一段代码解析 #

wsSheet1.Cells(Rows.Count, 1).End(xlUp).Row

这段代码的作用是：

• 定位到wsSheet1工作表第1列（A列）的最后一行单元格（Cells(Rows.Count, 1)）
• 调用End(xlUp)向上查找，直到找到第一个非空单元格
• 最后返回这个非空单元格的行号

举个例子：如果A列最后有数据的单元格在第8行，这段代码就会返回8。

第二段代码解析 #

wsSheet1.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

这段代码是在第一段的逻辑基础上做了延伸：

1. 先定位到wsSheet1工作表第2列（B列）的最后一行单元格
2. 向上找到B列最后一个非空单元格
3. 通过Offset(1, 0)将位置向下移动1行（第一个参数1代表行偏移量，正数向下；第二个参数0代表列偏移量不变）
4. 最后返回这个移动后单元格的行号

举个例子：如果B列最后有数据的单元格在第10行，那么Offset(1,0)会定位到第11行，这段代码就返回11。

关于你遇到的运行异常 #

出现错误大概率是这几个原因：

• wsSheet1变量没有正确赋值：比如你没有用Set wsSheet1 = ThisWorkbook.Sheets("Sheet1")这类语句指定具体工作表，导致VBA找不到这个对象
• Rows.Count没有限定工作表：默认Rows.Count是当前活动工作表的行数，如果wsSheet1不是活动表，可能会出现行数不匹配的问题，建议改成wsSheet1.Rows.Count更严谨
• 目标列全为空：如果B列完全没有数据，Cells(Rows.Count, 2).End(xlUp)会定位到第1行，Offset(1,0)就是第2行，这时候一般不会报错，但如果有其他逻辑冲突也可能出问题

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