セル データが連続しているセル範囲(表)全部のデータを変数へ格納(コードたった1行)

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。

Option Explicit


Sub CellRangeListData(ByVal Sht As Worksheet, ByRef RngDB As Variant)
'***************************************************************************
'データが連続しているセル範囲(表)全部のデータを変数へ格納(コードたった1行)
'***************************************************************************
'Cell(1,1)からデータが入っていることが条件
'[Shift]+[Ctrl]+[*]と同じ範囲

    RngDB = Sht.Cells(1, 1).CurrentRegion

End Sub


Private Sub test()
Dim Sht As Worksheet
Dim RngDB As Variant
Dim y As Long, x As Long

Set Sht = ThisWorkbook.Worksheets("Sheet1")
Call CellRangeListData(Sht, RngDB)
    For y = LBound(RngDB) To UBound(RngDB)
        For x = LBound(RngDB, 2) To UBound(RngDB, 2)
            Debug.Print RngDB(y, x)
        Next x
    Next y
'a
'b
'c
Set Sht = Nothing

End Sub

 

 

2000年01月01日|[VBサンプルコード]:[CELL]