如何解决设置范围相等时的正确语气
什么是使单元格范围等于另一个单元格的正确词? 我有一个获取最后一列的变量。
Sub Submit()
Worksheets("TRACKER").Activate
Dim LastColumn As Long
LastColumn = ActiveSheet.Cells(1,Columns.Count).End(xlToLeft).Column
Range("LastColumn & 1: LastColumn & 16").Value = Worksheets("INPUTXL").Range("B3:B18")
Worksheets("INPUT").Activate
End Sub
我当然得到了很好的方法范围对象错误,因为那行措辞不正确。非常感谢。
解决方法
更易于使用Cells
表示法。
Sub Submit()
Dim LastColumn As Long
With Worksheets("TRACKER")
LastColumn = .Cells(1,Columns.Count).End(xlToLeft).Column
Range(.Cells(1,LastColumn),.Cells(16,LastColumn)).Value = Worksheets("INPUTXL").Range("B3:B18")
End With
Worksheets("INPUT").Activate
End Sub
,
此:
Dim LastColumn As Long
LastColumn = ActiveSheet.Cells(1,Columns.Count).End(xlToLeft).Column
Range("LastColumn & 1: LastColumn & 16").Value = Worksheets("INPUTXL").Range("B3:B18")
应为:
Dim LastColumn As String
LastColumn = Chr(64+ActiveSheet.Cells(1,Columns.Count).End(xlToLeft).Column)
Range(LastColumn & "1:" & LastColumn & "16").Value = _
Worksheets("INPUTXL").Range("B3:B18").Value
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。