Excel VBA - 范围自动填充

时间:2014-10-23 13:08:38

标签: excel vba

很少有类似的线程,但我找不到答案。

我想将宏自动填充列A从该宏中指定的活动单元格写入一行,具体取决于C列中最后一个填充的单元格行索引。当我的宏循环300张时,它不能是单元格地址,而是首先列A中的空单元格地址,列C中的最后一个非空单元格行索引。

endRow = Cells(Rows.Count, "C").End(xlUp).row
StartRow = Cells(Rows.Count, "A").End(xlUp).row

Range("A1").Select
ActiveSheet.Range("a1").End(xlDown).Select

这是错误的行(根据excel)

Selection.AutoFill Destination:=Range(Cells(StartRow, 1), Cells(endRow, 1))

适用于4张第一张,第5张停止

它是如何工作的,例如:宏填充C列中的4行,而不是它应该填充A列中的4行,而不是C列中的另外5行,从第一个空单元开始,而不是列A中的另外5行,从第一个空的开始,等等。

另外:宏返回的一些单元格是空的,它是正确的,但我的rows.count函数无法处理。有解决方案吗?这似乎是一个更大的问题,因为我确定了我的startrow和endrow函数,这些函数看起来很有用,只有空单元格出现在C列中。

感谢。

0 个答案:

没有答案