EXCEL VBA添加空行以使它们成为一组数字

Question

我需要将空行添加到3组od数据中，使其各为92。

例如我有来自A1的数据：A85，A86：A167，A168：A248但是我想通过添加剩余的空行来使它们各自为92。可以有任何VBA为此。 （首先设置85个数据点想要添加7个空行来制作92， 第二组82个数据点到广告10个空行（如明智）

Answer 1

您的问题有点难以理解，但我想我知道您要问的是什么。对于少于92行的任何Range对象，我认为你想要添加额外的空白行，基本上是＆＃34; padding＆＃34;当前区域，因此它恰好是92行长。你好像不关心专栏。您可以使用它的.Resize属性向Range对象添加其他行。如你所说，Range("A1:A85")只有85行。在程序的某个地方，您可以使用类似

的内容

Set MyRange = Range("A1").CurrentRegion 'Work with one specific data set
Set MyRange = MyRange.Resize(92-MyRange.Rows.Count, 0) 'Add rows so that count adds to 92
                                                       'but zero columns

您可以在Range.Resize property上查看帮助页面以获取更多信息。然后，Select...Case例程可以帮助您向工作表中的其他数据集添加行。不幸的是，如果没有看到你的代码，没有人可以测试这个来验证。