动态的行和列

Question

，所以我尝试写一些VBA，可以看“Sheet2的”，并确定需要多少行和列在其线图

我遇到困难，使根据变量声明.SetSourceData的范围，我需要它从单元格（1,4）开始并转到单元格（LastRow，LastColumn）。当我尝试，我得到一个错误

'的方法2 昏暗LASTROW只要 昏暗LastColumn只要 昏暗RNG2作为范围 昏暗ShName作为字符串 随着ActiveSheet

LastRow = ThisWorkbook.Sheets("Sheet2").Range("G" & .Rows.Count).End(xlUp).Row 
LastColumn = ThisWorkbook.Sheets("Sheet2").Cells(1, Columns.Count).End(xlToLeft).Column 
Set rng2 = ThisWorkbook.Sheets("Sheet2").Range(.Sheets("Sheet2").Cells(2, 4), .Sheets("Sheet2").Cells(LastRow, LastColumn)) 

' ThisWorkbook.Sheets（” Sheet2的 “）范围（” R2" ）值= RNG2

ShName = .Name 
End With 

Charts.Add 

With ActiveChart 
    .ChartType = xlLine 
    .SetSourceData Source:=rng2 
End With 

Answer 1

我尝试用你的代码和行出现错误：

Set rng2 = ThisWorkbook.Sheets("Sheet2").Range(.Sheets("Sheet2").Cells(2, 4), .Sheets("Sheet2").Cells(LastRow, LastColumn)) 

尝试添加ThisWorkbook前.Sheets：

Set rng2 = ThisWorkbook.Sheets("Sheet2").Range(ThisWorkbook.Sheets("Sheet2").Cells(2, 4), ThisWorkbook.Sheets("Sheet2").Cells(LastRow, LastColumn)) 

或删除点之前Sheets：

Set rng2 = ThisWorkbook.Sheets("Sheet2").Range(Sheets("Sheet2").Cells(2, 4), Sheets("Sheet2").Cells(LastRow, LastColumn))