配列の範囲の非エンプティセルを取得する

Question

範囲の空でないセルをすべて取得しようとしています。

'get keywords - only non-empty values 
    Dim sheetDataSource As String 
    Dim LR As Long 
    Dim keywords As Variant 
    Dim strUrl As String 
    ' Set sheetDataSource = "DataSource" 
    LR = Range("A" & Rows.Count).End(xlUp).Row 
    Sheets("Settings").Range("A2:A" & LR).SpecialCells(xlCellTypeConstants, 23).Select 

現在、私は何も戻っていません。さらに、forループでそれらを実行する配列にそれらを配置したいと思います。

私が間違っていることは何ですか？

あなたの返信を歓迎します！

Answer 1

私は、すべての非空のセルを取得するにはIntersectを使用することをお勧めします：

With Sheets("Settings").Range("A2:A" & LR) 
    Application.Intersect(.SpecialCells(xlCellTypeConstants), .SpecialCells(xlCellTypeVisible)).Select 
End With 

ここから次のことができ、この範囲をループし、むしろ配列（として保存するよりも、あなたがそれをする必要があり、特定の理由がありますしない限り、アレイ）。 .Selectメソッドを使用せず、その代わりに希望の範囲を変数に設定することもお勧めします。

Dim NonEmpties As Range 

With Sheets("Settings").Range("A2:A" & LR) 
    Set NonEmpties = Application.Intersect(.SpecialCells(xlCellTypeConstants), .SpecialCells(xlCellTypeVisible)) 
End With 

Answer 2

が、私はダンの答えを好きですが、念のためにあなたが範囲で実験のビットをしたい：

selectedRange = Application.Selection 

For Each cell In selectedRange 

    If cell <> "" Then Debug.Print cell 

Next 

ハイライトワークブックの範囲を、そしてVBエディタに反転し、実行しますコード。空白のセルを除いて、選択した範囲内のすべてを印刷する必要があります。