根据相邻单元格或其他单张的内容填写

时间:2016-02-01 15:17:56

标签: excel vba excel-vba

我在A列中有数据,从A5到A50,但终点可能会发生变化。

我想选择B5到Y5并填充到A列的末尾(在本例中为第50行,但每次都会改变)。

行数取决于另一张纸。

作为上述问题的替代方法,是否有办法转到另一张纸,并计算A列中的行,从A4向下计算,然后在我的另一张纸中填写该数量?

摘要 - 我有一张带有数据的工作表,从A4开始,然后向下移动一个将要改变的数量。   - 我想在另一张纸上填写第一张纸上的行数。

修改

我尝试使用宏录制器的代码如下所示。现在它只选择我需要的区域。 A5:Y5 Select将始终相同,但要填充的行数将是可变的。我希望有一种方法可以计算A5:另一张纸的A1000,然后只填写那行数。

Sub Macro1()
Macro1 Macro
    Sheets("Stress Test").Select
    Range("A5:Y5").Select
    Range("A5:Y50").Select
    Selection.FillDown
End Sub

1 个答案:

答案 0 :(得分:0)

将其他工作表的名称放入其中并根据需要进行调整:

lastRow = Sheets("name of the other sheet").Cells.Find(What:="*", After:=[A1], _
 SearchOrder:=xlByRows, _
 SearchDirection:=xlPrevious).Row

Range("A5:Y" & lastRow).Select