VBA:插入最后一个单元格+;1.
我试图将信息插入数据透视表的total列旁边的单元格中。我可以找到最后一个单元格,但是我无法将列值增加1。有人知道正确的方法吗?理想情况下,最后一个单元是B30。我想递增并在C30中插入一个值。我希望能够做到这一点,而不必使用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
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”
?该死,我搞错了!如果你愿意,你可以作为答复提交,我会接受的