Question

定义的应用程序或对象定义错误

Sub 优质()
'
' 优质 宏
Dim counterrow As Integer
Dim range1 As Range
counterrow = ActiveSheet.UsedRange.Rows.Count
Set range1 = ActiveSheet.Range(Cells(2, H), Cells(3, H))
Range("H2").Select
ActiveCell.FormulaR1C1 = "优质"
Range("H2").Select
Selection.Copy
range1.Select
ActiveSheet.Paste
End Sub

不知道为什么总是在 Set range1 = ActiveSheet.Range(Cells(2, H), Cells(3, H))那里显示错误，求大神们指教应该改成什么
我是想选择H2到counterrow的区域 忘记改过来了

Answer 1

可能程序不兼容， 可以更换个版本试试。另外建议参考下程序对配置的要求。
或者右键需要运行的程序 选择兼容性 用兼容模式运行试试。