如何解决运行时错误“91” - 正确声明的对象和相同的语法在上面的行中有效
我在试图解码我遇到的这个错误时,我已经无能为力了。
在下面的语法中,抛出错误的行是NumColumnsTarget = .Range("A1").End(xlToRight).Column
据我所知,我已经正确分配了所有对象。我注意到的一件事是,更改 Range 变量声明的顺序(即:NumRowsTarget,NumColumnsTarget,NumColumnsLOP,NumRowsLOP
而不是 NumRowsLOP,NumRowsTarget,NumColumnsTarget
)将更改哪个变量引发运行时错误,我迷路了出于某种原因。有什么想法吗?
Option Explicit
Sub MergeRecords()
Application.ScreenUpdating = False
Dim TargetRecordArray(),LOPRecordArray() As Variant
Dim ws As Worksheet
Dim i,j As Integer
Dim LOPSerialNo,TargetSerialNo As String
Dim NumRowsLOP,NumColumnsTarget As Range
Set ws = ThisWorkbook.Sheets("LOP Records")
With ws
NumRowsLOP = .Range("A1").End(xlDown).Row
NumColumnsLOP = .Range("A1").End(xlToRight).Column
End With
Set ws = ThisWorkbook.Sheets("Target Records")
With ws
NumRowsTarget = .Range("A1").End(xlDown).Row
NumColumnsTarget = .Range("A1").End(xlToRight).Column
End With
End Sub
编辑:我是个傻瓜。谢谢大家。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。