Question

我在VBA中有一个声明来创建一个Range，然后选择并复制它。之后我将其粘贴到其他地方。但最后一行是在没有换行的情况下粘贴的，所以我想将我的范围扩大一个。我目前的陈述是：

dtIn <- data.table(LETTERS[1:3], c(0.6, 0.3, 0.1))
dtOut <- list()
for (i in 1:nrow(dtIn))
  for (j in 1:nrow(dtIn))
    dtOut[[paste0(i, j)]] <- data.table(paste0(c(dtIn[i, V1], dtIn[j, V1]), collapse = ""),
                                        dtIn[i, V2] + dtIn[j, V2])
dtOut <- rbindlist(dtOut)

将这一范围延长一行的最简单方法是什么？

Answer 1

是：

Set twoRange = Range("A2", Range("A2").End(xlDown).Offset(1))
twoRange.Copy

使用“偏移”可以再向下移动一个单元格。 Offset使用以下格式：`Offset（Rows，[columns]）

您也无需选择复制范围的范围。

Answer 2

你可以做到

Set twoRange = Range("A2:A" & Range("A2").End(xlDown).Row + 1)

在使用xlDown方法找到的行中添加一个。

Excel VBA：我可以简单地将范围扩展一个吗？

2 个答案: