セル データが連続しているセル範囲(表)全部のデータを変数へ格納(コードたった1行)
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
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 |