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

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][セル データが連続しているセル範囲(表)全部のデータを変数へ格納(コードたった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






Production Japan Import Application. Since 1998