如何在VBA excel中复制特定数量的数据?

时间:2016-11-05 09:00:23

标签: excel vba excel-vba

假设我在A1的单元格"Max"中有数据,我想将A1的值复制120次。然后我在单元A121中有另一个名为"Ben"的数据,我想将其复制400次。等等... 我不会总是复制120次或400次。有时它是100次,有时是500次,或1000次。我必须对许多数据这样做。 我已经使用

Range("A1").Copy Range("A120")
Range("A121").Copy Range("A279")

但我认为它不是那么有效,因为我必须计算差异,但是我要复制数据的次数和最后一行的数量。 如果你不清楚,请看看我的情况。我已将"Max"复制120次,并以单元格A120结束。当我尝试继续复制"Ben" 400次时,我必须知道它应该结束哪个单元格,在这种情况下A279。我通过减去A279得到400-121(1 cell after the last cell of "Max")。如果我必须复制更多的价值,我不能这样做。这没效果。

所以,问题是。有没有办法通过提供要复制多少次来复制单元格的值?

1 个答案:

答案 0 :(得分:0)

严格回答你的问题

  

有没有办法只通过提供方式来复制单元格的值   很多时候你想复制?

是:

cell.Resize(nTimes).Value = cell.Value

其中:

  • cell,是一个变量,包含对仅包含一个单元格的范围的有效引用

  • nTimes,是您希望从cell本身开始并向下(cell - 1)复制nTimes值的次数它下面的细胞