式IFBLANKで作成された空白セルを無視する動的なグラフを作成しようとしています

Question

式IFBLANKで作成された空白のセルを無視する動的なグラフを作成しようとしています。私が現在使用している最後の行を見つけるには.END（xlUp）.Rowしかし、空白のセルは数式のために本当に空ではないので、チャートが作成されたときに無視されません。これらのセルが無視されるようにグラフを作成するにはどうすればよいですか？チャートは、データが別のシートから供給されているシートで作成されます。

コード：Excelシートの

Dim chtObj As ChartObject 

Dim Calculation As Worksheet 

lr = Worksheets("Calculation").Cells(Rows.Count, 1).End(xlUp).Row 
lc = Worksheets("Calculation").Cells(2, Columns.Count).End(xlToLeft).Column 
Set chtRng = Range(Cells(2, 1), Cells(lr, lc)) 

Set ChartArea = Range("b" & lr + 3 & ":j" & lr + 20) 
Worksheets("Calculation").Shapes.AddChart2(317, xlRadarMarkers).Select 
ActiveChart.SetSourceData Source:=chtRng 
Set chtObj = ActiveChart.Parent 


chtObj.Top = ChartArea.Top 
chtObj.Left = ChartArea.Left 
chtObj.Height = ChartArea.Height 
chtObj.Width = ChartArea.Width 

画像：

IfBlank式：

Answer 1

あなたは範囲からすべての空白をフィルタリングして、避けるために、グラフをプロットすることができますこの問題。

PS：あなたのチャートの選択データ選択からこの、

Sub test() 
    With ActiveSheet.ChartObjects.Add _ 
     (Left:=100, Width:=375, Top:=75, Height:=225) 
     .Chart.SetSourceData Source:=Sheets("Sheet1").Range(Range("D2").Value) 
     .Chart.ChartType = xlLine 
    End With 
End Sub 

Answer 2

を考えてみましょう、あなたはどのような細胞を選択するために、あなたのチャートに隠された、または空のセルの取り扱いに行くことができます処理された。それはあなたの問題を解決しますか？

あなたがスペースでないセルに来るまでは、ちょうどあなたのテーブルを継続するための

、あなたがlrの初期値を設定する行の下にこのコードを挿入します。

Do While lr > 1 And Len(Trim(Worksheets("Calculation").Cells(lr, 1))) = 0 
    lr = lr - 1 
    Debug.Print lr 
Loop 

の場合trueのときに ""の代わりに ""を返すようにifステートメントを変更すると、Trimのいずれかが必要になりません（考えてみると、0の代わりに1にすぎないかもしれません）。