Question

ExcelVBA要求对象

初学VBA，自己写了一串代码，运行效果符合期望，但运行的时候，总是提示：“运行时错误，要求对象”请帮忙指点一下，VBA如下：
Sub test()
Dim rng As Range
Set rng = Application.InputBox("请选择需要复制的区域", "提示选择", , , , , , 8)
rng.Copy Cells(rng.Row, 3)
Range("c4,c14").Select.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Answer 1

Sub test()
Dim rng As Range
Set rng = Application.InputBox("请选择需要复制的区域", "提示选择", , , , , , 8)
rng.Copy
activesheet. Range("c4,c14").select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

这里面需要注意在选择要复制的区域时不要选择与Range("c4,c14")有重叠的区域，否则程序会出错。