Excel 设置相等范围的正确措辞

使一个单元格范围等于另一个单元格的正确措辞是什么？ 我有一个获取最后一列的变量

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

我得到了很好的方法范围对象的错误，当然，因为那条错误的行。非常感谢。

这是：

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 

这：

应该是：

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 

易于使用的单元格表示法

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

易于使用的单元格表示法

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

---

@SJR；修正-我没看到@JMP旁注：通过Chr函数G将列号更改为字符将仅限于A:Z中的列。可以通过以下方式进行简单转换：SplitColumnsn.Address，0，：0，其中n表示数字列值。@SJR；修正-我没看到@JMP侧注：通过Chr函数G将列号更改为字符将仅限于A:Z中的列。可以通过以下方式进行简单转换：SplitColumnsn.Address，0，：0，其中n表示数字列值。