【问题标题】:Select last blank cell in row选择行中的最后一个空白单元格
【发布时间】:2020-04-28 22:22:22
【问题描述】:

我想将数据粘贴到我的主工作表中,该数据应粘贴到行中的最后一个空白单元格中 例如我在“A4”中有数据,那么应该将新数据粘贴到单元格“B4”中

我有以下代码来获取列中的最后一行,但不是获取行中的最后一列

Range("A" & Rows.Count).End(xlUp).Offset(1).Select

【问题讨论】:

  • 请尝试:Dim rng As RangeSet rng = Range("A" & Rows.count).End(xlUp).Offset(1)rng.Select
  • @faneduru 以上代码显示错误
  • 我不这么认为...当然,如果您不将所有代码放在一行中。必须有三行。第一个保留变量声明,第二个保留范围定义,第三个保留范围选择。请确认您是否按照我刚才的解释进行了操作。当您谈论错误时,建议说出错误的类型以及出现在哪一行。
  • 仍然代码显示错误?
  • 不,现在不是

标签: excel vba


【解决方案1】:
Sub qwerty()
    Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).Select
End Sub

(从技术上讲,这是所有数据后行中的第一个空闲单元格)

【讨论】:

  • 谢谢大哥,付出的努力和时间,效果很好,我把它标记为ans。
  • @bigben 我已经询问了行和答案。 given 也适用于行
  • 如果您需要最后一个空行,请使用:Dim lastRow As Long。 lastRow = Range("A" & Rows.count).End(xlUp).row + 1。或Dim rng As RangeSet rng = Range("A" & Rows.count).End(xlUp).Offset(1)rng.Select
猜你喜欢
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 2016-09-20
  • 2019-10-01
  • 1970-01-01
相关资源
最近更新 更多