Question

我有两行代码，第一行正常，第二行不会“粘贴”定义范围内的任何值。我无法确定错误的位置，因为我确定第二行中的两个范围都跨越同一区域？

Sheets("Loans").Range("A101:K101").Value = Sheets("Loan Backup").Range("N14:X14").Value

Sheets("Loans").Range("A2:K100").Value = Sheets("Loan Backup").Range(Cells((l - 1) * 99 + 2, 1), Cells(l * 99 + 1, 11)).Value

Answer 1

我读到了关于Range的内容，你可以在这样的范围内使用单元格：

Sub SelectCols()

    Dim Col1 As Integer
    Dim Col2 As Integer

    Col1 = 2
    Col2 = 4

    Range(Cells(1, Col1), Cells(1, Col2)).Select

End Sub

我希望这对你有所帮助。

Answer 2

默认情况下，单元格（x，y）引用活动表格，因此要在使用单元格（x，y）语法时引用另一个工作表，我们必须对其进行限定。即我的问题的代码应该是：

Sheets("Loans").Range("A2:K100").Value = Range(Sheets("Loan Backup").Cells((l - 1) * 99 + 2, 1), Sheets("Loan Backup").Cells(l * 99 + 1, 11)).Value

我的来源是question。

使用其他范围设置范围的值

2 个答案: