Question

我一直在谷歌上搜索一段时间但没有成功 - 我有一个大约850行的表，在第8到13列我需要找到最后一个使用的行，然后将数据添加到下面的剩余空行（如果有）。我发现很多使用范围的例子，但他们都只是找到表格中的最后一行，因此对我不起作用。我是VBA的初学者，我尝试使用ListColumns对象但无济于事，因此没有当前的代码可以发布。任何人都可以对此提供一些见解吗？

Answer 1

这样做：

Sub Macro1()
    Dim i, iColumn, Ending_Column As Long ' Declare you long data types

    Ending_Column = 13 ' Assing the right-most column

    i = Range("H" & Range("H" & Rows.Count).End(xlUp).Row) + 1 ' Find the next row column H (this lets you enter the data on the same line)

    For iColumn = 8 To Ending_Column ' Asign left-most column and loop to the right-most one
        Cells(i, iColumn).Value = "Your input" ' The "Your input" needs to be modified
    Next ' next column

End Sub

查找表中最后使用的行，然后将数据添加到下面的其余行

1 个答案: