2016-12-26 15 views
0

私のコードに失敗しましたの取得方法の範囲は、以下のコード

Set myRange1 = ws1.Range("B5", ws1.Range("B5" & Rows.Count).End(xlUp)) 
+0

、あなたはあなたにいくつかの正のフィードバックを助けここの人々を与える必要があり、あなたは「答え」としてマークすることで起動することができます(またはアップ投票他のシナリオで) –

答えて

1

あなたは飛ばして(列Bのデータと最後の行刚性セル「B5」から範囲を取得しようとしている場合

With ws1 
    Set myRange1 = .Range("B5:B" & .Cells(.Rows.Count, "B").End(xlUp).Row) 
End With 

オプション2:真ん中に空白のセルが)下のコードを使用しますが、列Bのデータと最後の行刚性セル「B5」から範囲を取得しようとしている場合(空白のセルをスキップせずに私は、次の部分が奇妙だと思う

With ws1 
    Set myRange1 = .Range("B5:B" & .Range("B5").End(xlDown).Row) 
End With 
0

:途中で)以下、このオプションのコードを使用します。

ws1.Range("B5" & Rows.Count).End(xlUp) 

"B5" & Rows.Countが正しくありません。

Rows.Countを使用しない場合は、 これを試してください。あなたがここにヘルプを維持したい場合は

ws1.Range("B" & ws1.Rows.Count).End(xlUp).Address 
関連する問題