vba - 编译错误: Object Required [closed]

Closed. This question needs debugging details。它当前不接受答案。

想改善这个问题吗？更新问题，以便将其作为on-topic用于堆栈溢出。

2年前关闭。

Improve this question

我有一个问题

Compile error: Object Required

我检查了网站上已解决的类似问题，但由于某些原因，我仍然遇到该问题。

我正在使用的代码在H列(第8列)下的单元格不匹配的行之间添加行。它在大多数时间都有效，但是一个数据集包含数字，并以在单元格中具有字母和数字的单元格结尾。如果您看到我想念的东西，请告诉我。

Sub SepP1()

Sheets("Format Area (Paste Here)").Activate

Dim LR As Long
Dim j As Integer
Dim i As Integer

Set LR = Cells(Rows.Count, 8).End(xlUp).Row 'I AM GETTING THE ERROR HERE

i = 2

For j = 2 To LR

i = i + 1

If Cells(j, "H").Value = Cells(i, "H") Then

ElseIf Cells(j, 8).Value <> Cells(i, 8) Then
    Application.CutCopyMode = False
    Rows(i).Insert Shift:=xlShiftDown
    Rows(i).Insert Shift:=xlShiftDown
    Rows(i).Insert Shift:=xlShiftDown
    j = j + 3
    i = i + 3
    End If

Next j

End Sub

最佳答案

处理对象变量时仅使用Set。 Long是数字，而不是对象。

更改此:

Set LR = Cells(Rows.Count, 8).End(xlUp).Row

对此:

LR = Cells(Rows.Count, 8).End(xlUp).Row

关于vba - 编译错误: Object Required [closed]，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/49286428/

上一篇：regex - msys2中的regex.h(Windows)

下一篇：visual-studio - 名称 'Sitecore' 在当前上下文中不存在

相关文章：

loops - VBA 代码需要很长时间才能执行

vba - 如何从脚本字典将数组添加到单元格内下拉列表中？

excel VBA，在将多个 CSV 文件复制到一个工作簿时，在单元格中创建一个包含工作表或文件名的列

arrays - 无法使用数组成员变量分配数组

javascript - 匹配来自两个 api 调用的数据，然后在 React 中的表格上显示结果

VBA 代码适用于宏，但不适用于按钮

python - 如何在 Openpyxl 中找到最后一个非空白单元格？

python - 使用 wsh 从 vba 调用 python 脚本

java - 使用 Guava 将 map 转换为对象？

vba - Documents.Add 导致模板被锁定