根据另一个工作表自动填充动态范围

时间:2018-07-13 20:19:18

标签: excel vba excel-vba

我在工作簿中有两张包含不同数据集的图纸。表格1包含一组未格式化为表格的数据。该数据的标题行在第4行上。当我尝试使用Range("A" & Rows.Count).End(xlUp).Row进行计数时,我得到了整个工作表的最后一行,而不是我的中有多少数据行的计数起点

Sheet 2的标题行位于第1行中。因此,当我尝试使用上述与AutoFill相同的行数时,我总是会多获得3行,因为Sheet 1的数量只是看该行的最后一行数据是。

我不想在任何一张纸上都放任何东西。我只希望能够基于与工作表1中相同的行数自动填充,从A5开始计数,然后向下到数据的最后一行。是否有一个不同的计数公式从一个特定的单元格开始,仅对它下面的行进行计数,然后告诉其他工作表仅根据我缺少的那个数字自动填充

2 个答案:

答案 0 :(得分:0)

您可能会考虑这个问题。只需将行数减3

Range("A" & Rows.Count).End(xlUp).Row - 3

我也会对对象和属性(RangeRow)进行限定,以取得良好的效果。

答案 1 :(得分:0)

您可以使用其中一个:

set rng = Range("A1:A1000").SpecialCells(xlCellTypeConstants, 2)

set rng = Range("A5").CurrentRegion.Resize(,1)

假设数据范围内没有空白