我正在运行一个定义动态范围的宏。我正在努力的是加入一个IF语句来测试动态范围是否引用了一个特定的范围。我正在尝试下面的代码,但是得到了'Run-type error '13':Type-mismatch‘。有人能告诉我这是怎么回事吗?
Sub TestTwo()
Dim colRange As Long
Dim rowRange As Long
Dim rngMain As Range
rowRange = 10
With Worksheets(1)
colRange = .Cells(10, 12).End(xlToLeft).Column
Set rngMain = .Range(.Cells(rowRange + 200, colRange + 1), .Cells(217, 12))
Range("L210:L217").FormulaR1C1 = "=+R[-60]C-R[-60]C[-1]"
If Not rngMain = Range("L210:L217") Then Range("L210:L217").AutoFill Destination:=rngMain, Type:=xlFillDefault
End With
End Sub我之所以要测试" rngMain“指的是什么,是因为如果rngMain引用L210:L217,那么我会得到”运行时错误1004“:应用程序定义或定义的对象错误”,否则代码就会正常运行。
提前感谢您的帮助。
https://stackoverflow.com/questions/47557670
复制相似问题