Question

rng1错误，有人知道如何解决？我正在尝试创建图表，但我需要找到图表范围的第二部分

Range("A1").Select

Cells.Find(What:="Sum(FRD End Analysis)", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate

Set rng1 = ActiveCell.Offset(0, 1).Range("A1:E2")



'Your data range for the chart
  Set rng = ActiveSheet.Range("C1:G1,rng1")

'Create a chart
  Set cht = ActiveSheet.Shapes.AddChart

Answer 1

希望这可以解决问题。我猜测rng1会引发错误，因为在任何地方都找不到 Sum（FRD End Analysis）。我不确定，因为您没有说这是什么错误。

可能是：未定义变量（如果您使用的是Option Explicit），或者是对象变量或未设置块变量的，因为{{ 1}}语句找不到任何东西，或者我没有想到的其他许多东西。

Find

excel vba-搜索范围后如何放入变量

1 个答案: