438 对象不支持此属性或方法 vba

Question

下面是我的代码。所有代码都有效，但我得到错误 438 object does not support this property or method vba in this line。 i.offset(-7,-8).paste

Sub insert_6_rows()
Dim rActive As Range
Dim wb As Workbook

Set rActive = ActiveCell

Application.ScreenUpdating = False
Dim f As Range
Set f = Sheets("Format").Range("A1:J6")
Dim FindST As Range
Set FindST = Sheets("Driver").Range("I:I").Find(What:="Subtotal", LookIn:=xlValues)
FindST.Offset(-1, 0).EntireRow.Resize(6).Insert
f.Copy
Dim i As Range
Set i = Sheets("Driver").Range("I:I").Find(What:="Subtotal", LookIn:=xlValues)
i.Offset(-7, -8).Paste
rActive.Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Answer 1

使用 Range.Copy method 的 Destination 参数。

Sub insert_6_rows()

    Dim rActive As Range
    Dim wb As Workbook

    Set rActive = ActiveCell

    Application.ScreenUpdating = False
    Dim f As Range, FindST As Range, i As Range

    Set f = workSheets("Format").Range("A1:J6")
    Set FindST = workSheets("Driver").Range("I:I").Find(What:="Subtotal", LookIn:=xlValues)

    FindST.Offset(-1, 0).EntireRow.Resize(6).Insert

    f.Copy Destination:=workSheets("Driver").cells(FindST.row-1, "A")

    rActive.select
    Application.ScreenUpdating = True

End Sub

Answer 2

1. 使用有意义的变量名！每个人都会想到i 是一个简单的计数器。例如。最好把它命名为FoundCell。

2. 如果什么都没有找到，那么你不能从“无”中.Offset，这就是它失败的原因。因此，您需要测试是否找到了某些东西。

我建议：

Dim FoundCell As Range
Set FoundCell = Sheets("Driver").Range("I:I").Find(What:="Subtotal", LookIn:=xlValues)

'check if something was found
If FoundCell is Nothing Then
    MsgBox "Subtotal not found in column I"
    Exit Sub
End If

'check if found cell.row is at least 7 rows so we can offset -7
If FoundCell.Row <= 7 Then
    MsgBox "Cannot offset -7 rows because found cell is less then 7 rows from top"
    Exit Sub
End If

SourceRange.Copy
FoundCell.Offset(-7, -8).Paste

Answer 3

将粘贴更改为 PasteSpecial

i.Offset(-7, -8).PasteSpecial