Question

我正在尝试将信息插入到数据透视表的总列旁边的单元格中。我可以找到最后一个单元格但是我无法将列值增加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"

Answer 1

尝试使用Range类的.Offset(rows, columns)属性

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

VBA：插入最后一个单元格+1

1 个答案: