Vba的问题Subbb()DimcAsRangeDimdAsRangeDimfAsRangeDimgAsRangeFori=1To30b=i*14-11a=Sheet1.Cells(b,1).ValueWithSheet3.CellsSetc=.Find(a)IfNotcIsNothingThend=c.Resize(12,12)d.Copyf=Sheet5.Cells(b,1

Question

Vba的问题
Sub bb()
Dim c As Range
Dim d As Range
Dim f As Range
Dim g As Range
For i = 1 To 30
b = i * 14 - 11
a = Sheet1.Cells(b, 1).Value
With Sheet3.Cells
Set c = .Find(a)
If Not c Is Nothing Then
d = c.Resize(12, 12)
d.Copy
f = Sheet5.Cells(b, 1)
g = f.Resize(12, 12)
g.PasteSpecial
End If
End With
Next

End Sub
请帮忙看看那里有问题

Answer 1

没有set range