Vba 如何自动划分单元格中的值

我有一组具有特定值（以分钟为单位）的单元格，我想将它们转换为小时，问题是这些值会不断更新，所以我需要列的最后一行是变量

我写了这段代码，但问题是xldown似乎遗漏了一些东西：

Dim rng As Range
Set rng = ThisWorkbook.Sheets("Sheets1").Range("C3").End(xlDown).Select
For Each c In rng
    c.Value = c.Value / 60
Next

所以基本的想法是，可以得到C的最后一个值，然后除以60

欢迎提出任何建议/想法

---

非常感谢。

因为您正在将范围设置为变量，所以不需要

。请选择代码行末尾的
。此外，这只会给出列中最后一个单元格的数据。问题是，在某些列示例“D3”中，只有一个单元格值填充了0表示以下所有内容。有什么想法可以解决吗？编辑版本更健壮一些
Dim rng As Range, c As Range

With ThisWorkbook.Sheets("Sheets1")
    'edit: switch to xlUp
    Set rng = .Range(.Range("C3"), .Cells(.Rows.Count, "C").End(xlUp))
end with

For Each c In rng.Cells
    'edit: check cell has a value...
    If Len(c.value) > 0 Then c.Value = c.Value / 60
Next