时间戳

首页 > 解决方案 > Obeject_Worksheet 杀死代码的方法范围 - 有什么问题？

vba - Obeject_Worksheet 杀死代码的方法范围 - 有什么问题？

问题描述

我正在尝试编写一些 VBA：

  1. 在一个工作表（“2013-2018 组合”）中搜索一列以找到最大值
  2. 将该值 + 1 粘贴到另一个工作表的底行

尝试在下面定义 U 时出现错误。将不胜感激一些帮助，因为我试图调试它没有结果。

错误：1004 - 方法“对象范围”_Worksheet 失败

Dim wscombined As Worksheet
Dim wspsimp As Worksheet
Dim u As Integer

Set wscombined = ThisWorkbook.Worksheets("2013-2018 Combined")
Set wspsimp = ThisWorkbook.Worksheets("Pipeline simplified")
u = Application.WorksheetFunction.Max(wscombined.Range("A7:A"))


LastRowU = wspsimp.Range("J" & Rows.Count).End(xlUp).Row

LastRowU.Offset(0, -8).Select

 '  Increment cell value by 1
   ActiveCell.Value = u + 1

标签： vba

解决方案

推荐阅读