VBA:插入最后一个单元格+;1.

VBA:插入最后一个单元格+;1.,vba,Vba,我试图将信息插入数据透视表的total列旁边的单元格中。我可以找到最后一个单元格,但是我无法将列值增加1。有人知道正确的方法吗?理想情况下,最后一个单元是B30。我想递增并在C30中插入一个值。我希望能够做到这一点,而不必使用 Dim LastRow As Range Dim LastCol As Range On Error Resume Next With ws Set LastRow = Cells.Find(What:="*", S

我试图将信息插入数据透视表的total列旁边的单元格中。我可以找到最后一个单元格,但是我无法将列值增加1。有人知道正确的方法吗?理想情况下,最后一个单元是B30。我想递增并在C30中插入一个值。我希望能够做到这一点,而不必使用

Dim LastRow As Range
    Dim LastCol As Range
    On Error Resume Next
        With ws
            Set LastRow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows)
            Set LastCol = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns)
        End With
    LastCol = LastCol + 1
    Cells(LastRow.Row, LastCol.Column).Value = "Test"
尝试使用Range类的属性

Cells(LastRow, LastCol).Offset(0,1).Value = "test"

您是否听说过
.Offset()
?我曾尝试使用Offset,但它最终会捕获单元格B1
单元格(LastRow,LastCol.Column+1)。Value=“test”
?或者
单元格(LastRow,LastCol).Offset(0,1).Value=“test”
?该死,我搞错了!如果你愿意,你可以作为答复提交,我会接受的