如何在VBA中定义单个单元格变量并实现偏移赋值？

你只需要声明一个Range类型的变量，并用Set关键字将目标单元格赋值给它（因为Range是对象类型，不能直接用等号赋值），之后就可以通过Offset方法操作它的偏移单元格。

修改后的完整代码： #

Dim lastrow As Integer
Dim sumcount As Integer
Dim sumCell As Range ' 声明Range类型变量

' 查找C列最后一个非空行
lastrow = Cells(Rows.Count, 3).End(xlUp).Row

' 计算C17至该行的整数和
sumcount = Application.WorksheetFunction.Sum(Range("C17", Cells(lastrow, 3)))

' 将目标单元格赋值给Range变量（必须用Set）
Set sumCell = Cells(lastrow + 1, 3)
' 写入求和结果
sumCell.Value = sumcount

' 对偏移单元格赋值字符串，示例：向右偏移1列（D列）写入"合计"
sumCell.Offset(0, 1).Value = "合计"
' 也可以向上/向下偏移，比如向下偏移1行：sumCell.Offset(1, 0).Value = "备注"

关键说明： #

• Range变量声明：必须显式声明为Range类型，才能存储单元格对象。
• Set关键字：对象类型变量赋值必须用Set，普通数据类型（如Integer）直接用等号即可。
• Offset方法：语法为Range.Offset(行偏移量, 列偏移量)，正数代表向下/向右偏移，负数代表向上/向左偏移。

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