Question

我有一段代码，我循环查找工作表中最高的空白单元格，然后将数据从另一个工作表粘贴到以第一个空白单元格开头的范围内。这是我到目前为止的代码：

Sub Button644_Click（）

Dim ReferenceCell As Integer
For r = 1 To 2000
    If Sheets("Summary").Range("A" & r).Value = vbNullString Then
        ReferenceCell = r + 1
        GoTo A
    End If
Next r
    A:s = r + 9 
    Sheets("Summary").Range("A" & r:"Q" & s).Select
End Sub

调试器在A：之后的行上结束它。我需要代码类似于＆＃34;范围（＆＃34; A1：Q＆＃34;＆amp; s）＆＃34;但不是＆＃34; A（1）＆＃34;，它需要是＆＃34; A（r）＆＃34;。此代码最终将从另一个工作表中粘贴一个表格A1：Q10，并循环浏览，因此每次运行宏时，它都会检查空白单元格，然后将该表格粘贴到之前粘贴的表格下面。这仍处于早期阶段。任何帮助将不胜感激。

谢谢！

Answer 1

ANSWERED：＆＃34;您的代码包括.Range（＆＃34; A＆＃34;＆amp; r：＆＃34; Q＆＃34;＆amp; s）和：应该在引号内，并使用另一个连接运算符＆amp ;. .Range（＆＃34; A＆＃34;＆amp; r＆amp;＆＃34;：Q＆＃34;＆amp; s）。我会说，有更好的方法可以找到最后一排。这是一个不错的回顾：stackoverflow.com/questions/11169445 / ... - 拜伦＆＃34;

根据for循环的输出选择范围

1 个答案: