[已解决]红色语句有错吗？

kevin_2010

Sub 记录在案()
Dim rg As Range
Set rg = Sheets("最小不平衡操作记录").Range("A65536").End(xlUp).Offset(1#)
rg = "=today()"
With rg
.Offset(0, 1) = ActiveSheet.Cells(2, 3)
.Offset(0, 2) = ActiveSheet.Cells(4, 2)
.Offset(0, 3) = ActiveSheet.Cells(4, 4)
.Offset(0, 4) = ActiveSheet.Cells(4, 5)
.Offset(0, 5) = ActiveSheet.Cells(7, 5)
.Offset(0, 7) = ActiveSheet.Cells(7, 9)
End With
End Sub

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-13 17:13

Set rg = Sheets("最小不平衡操作记录").Range("A65536").End(xlUp).Offset(1)’下移一行的单元格！

跳转到最佳答案楼层

mxg825

Set rg = Sheets("最小不平衡操作记录").Range("A65536").End(xlUp).Offset(1)’下移一行的单元格！

mqr66

2楼正解。offset(a,b)里面的两个参数，分别指偏移的行和列。

kevin_2010

回复 mxg825 的帖子

后来才发现 我写成了 offset（1.0）了，它就自动生成了offset(1#)了。
我应该用逗号 而不是 点号