vba递增范围的行

Question

这应该是一个非常快速的问题.

有没有办法增加一个单元格的值.如何？例如,我可以说像usedCell.Row = usedCell.Row + 1吗？

那个特定的格式不起作用,但还有另一种方法可以将行增加1吗？

Answer 1

我相信cell.Offset(1,0)你正在寻找的东西.

偏移是一个相对函数.它根据当前单元格位置指向行/列; 因此,offset(1,1)将指向单元格下面的一行,当前单元格后面的一列.在另一方面,offset(-1,-1)指向上一行,当前单元格之前的一列.改善您的问题,我们可以为您提供更好的答案.不过,对于你提出的问题,偏移是答案,为此,+1. (3认同)

Answer 2

该Row和Column细胞(即性能Range)是只读的,所以你不能直接增加他们.

如果你想在A列中移动单元格,那么iDevlop的答案就可以了.另一种方法是使用对象的Cells方法Worksheet.将单词"hello"写入第1行到第100行A列中每个单元格的示例代码:

Dim lRow As Long

For lRow = 1 To 100
    Worksheets("Sheet1").Cells(lRow, 1).Value = "hello"
Next lRow

正如您在示例中所看到的,该Cells方法将行号作为第一个参数,将列号作为第二个参数.

对于处理同一列中单元格的简单情况,您还可以使用对象的Range属性Worksheet并构造实际地址 - 例如A39 - 每次:

Dim lRow As Long

For lRow = 1 To 100
    Worksheets("Sheet1").Range("A" & lRow).Value = "hello"
Next lRow