teratail
回答率
85.30%
質問するログイン新規登録
トップに関する質問2次元配列のインデックスが有効範囲にありません

編集履歴

質問編集履歴

15

文章間違い

2021/06/07 04:35

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -54,14 +54,14 @@
54
54
 
55
55
  Dim lineNum As Integer
56
56
  'COUNTA(A4:A40)=37と同等
57
- lineNum = WorksheetFunction.CountA(Range("A4", Range("A" & Rows.Count))) - 1
57
+ lineNum = WorksheetFunction.CountA(Range("A4", Range("A" & Rows.Count)))
58
58
 
59
59
 
60
60
  'A列～O列まで
61
61
  ReDim extractedData(lineNum , 14) As Variant
62
62
  ReDim Preserve extractedData(lineNum, 14) As Variant
63
63
 
64
- For j = 0 To lineNum - 1
64
+ For j = 0 To lineNum
65
65
 
66
66
  For i = 0 To 14
67
67
  'C列を無視(アルファベットが入っているデータがC列の為、以下で除外)

14

文章間違い

2021/06/07 04:35

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -59,6 +59,7 @@
59
59
 
60
60
  'A列～O列まで
61
61
  ReDim extractedData(lineNum , 14) As Variant
62
+ ReDim Preserve extractedData(lineNum, 14) As Variant
62
63
 
63
64
  For j = 0 To lineNum - 1
64
65
 

13

かみ砕いた説明を記載

2021/06/07 04:00

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -12,7 +12,7 @@
12
12
  インデックスが有効範囲にありません
13
13
  →場所：extractedData(j, i) = Cells(j + 4, i + 1)
14
14
  において、右辺は正常に取得。しかし、左辺が参照できず。
15
- エラー時のiとjの値
15
+ エラー時のjとiの値
16
16
  j=1,i=0
17
17
  ※ただし、iのFor文を回し終わった後の、jのFor文での2回目の処理での話です。
18
18
  すなわち、

12

かみ砕いた説明を記載

2021/06/07 03:32

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -13,7 +13,7 @@
13
13
  →場所：extractedData(j, i) = Cells(j + 4, i + 1)
14
14
  において、右辺は正常に取得。しかし、左辺が参照できず。
15
15
  エラー時のiとjの値
16
- i=0,j=1
16
+ j=1,i=0
17
17
  ※ただし、iのFor文を回し終わった後の、jのFor文での2回目の処理での話です。
18
18
  すなわち、
19
19
  ある行で、取得したいデータがある右の最後の列まで取得後、次の行に移った時の話です。

11

かみ砕いた説明を記載

2021/06/07 03:32

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -12,6 +12,8 @@
12
12
  インデックスが有効範囲にありません
13
13
  →場所：extractedData(j, i) = Cells(j + 4, i + 1)
14
14
  において、右辺は正常に取得。しかし、左辺が参照できず。
15
+ エラー時のiとjの値
16
+ i=0,j=1
15
17
  ※ただし、iのFor文を回し終わった後の、jのFor文での2回目の処理での話です。
16
18
  すなわち、
17
19
  ある行で、取得したいデータがある右の最後の列まで取得後、次の行に移った時の話です。

10

文章間違い

2021/06/07 03:31

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -56,7 +56,7 @@
56
56
 
57
57
 
58
58
  'A列～O列まで
59
- ReDim extractedData(num , 14) As Variant
59
+ ReDim extractedData(lineNum , 14) As Variant
60
60
 
61
61
  For j = 0 To lineNum - 1
62
62
 

9

かみ砕いた説明を記載

2021/06/07 03:20

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -21,6 +21,8 @@
21
21
  すなわち、
22
22
  ReDim Preserve buf(r, c)
23
23
  において変更できるのはcのみ
24
+ Trancepose関数を利用しようにも、
25
+ 以下のコードに加える事ができる方法がわかりかねております。
24
26
 
25
27
 
26
28
  【実現したい事】

8

かみ砕いた説明を記載

2021/06/07 03:18

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -13,7 +13,8 @@
13
13
  →場所：extractedData(j, i) = Cells(j + 4, i + 1)
14
14
  において、右辺は正常に取得。しかし、左辺が参照できず。
15
15
  ※ただし、iのFor文を回し終わった後の、jのFor文での2回目の処理での話です。
16
+ すなわち、
16
- すなわち、1つの行で取得したいデータがある右の列まで取得後、次の行に移った時の話です。
17
+ ある行で、取得したいデータがある右の最後の列まで取得後、次の行に移った時の話です。
17
18
 
18
19
  【理解している事】
19
20
  高次元配列において、最後の次元のみしか要素数を変更できない事。

7

かみ砕いた説明を記載

2021/06/07 03:17

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -13,6 +13,7 @@
13
13
  →場所：extractedData(j, i) = Cells(j + 4, i + 1)
14
14
  において、右辺は正常に取得。しかし、左辺が参照できず。
15
15
  ※ただし、iのFor文を回し終わった後の、jのFor文での2回目の処理での話です。
16
+ すなわち、1つの行で取得したいデータがある右の列まで取得後、次の行に移った時の話です。
16
17
 
17
18
  【理解している事】
18
19
  高次元配列において、最後の次元のみしか要素数を変更できない事。

6

文章間違い

2021/06/07 03:16

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -12,6 +12,7 @@
12
12
  インデックスが有効範囲にありません
13
13
  →場所：extractedData(j, i) = Cells(j + 4, i + 1)
14
14
  において、右辺は正常に取得。しかし、左辺が参照できず。
15
+ ※ただし、iのFor文を回し終わった後の、jのFor文での2回目の処理での話です。
15
16
 
16
17
  【理解している事】
17
18
  高次元配列において、最後の次元のみしか要素数を変更できない事。

5

文章間違い

2021/06/07 03:15

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -10,6 +10,8 @@
10
10
 
11
11
  【エラー内容】
12
12
  インデックスが有効範囲にありません
13
+ →場所：extractedData(j, i) = Cells(j + 4, i + 1)
14
+ において、右辺は正常に取得。しかし、左辺が参照できず。
13
15
 
14
16
  【理解している事】
15
17
  高次元配列において、最後の次元のみしか要素数を変更できない事。
@@ -54,7 +56,7 @@
54
56
  For j = 0 To lineNum - 1
55
57
 
56
58
  For i = 0 To 14
57
- 'C列を無視
59
+ 'C列を無視(アルファベットが入っているデータがC列の為、以下で除外)
58
60
  If Cells(j + 4, i + 1).Value Like "[A-Z]" Then
59
61
  'C列を無視する為の捨て変数CColum
60
62
  CColum = Cells(j + 1, i + 0)

4

文章間違い

2021/06/07 03:10

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -28,12 +28,16 @@
28
28
  ・データを取得し配列に投下
29
29
  ・配列からデータを取り出し、新規シートへ出力する
30
30
 
31
+
31
32
  現状は処理を2つにわけるプログラムを作っている最中です。
32
33
 
33
34
 
34
35
  以下、現状のプログラムコード
35
36
 
36
37
 
38
+ ※現在、データを取得してくる範囲はA4:O40です
39
+
40
+
37
41
  ```VBA
38
42
 
39
43
 

3

文章間違い

2021/06/07 02:07

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -36,6 +36,9 @@
36
36
 
37
37
  ```VBA
38
38
 
39
+
40
+ Dim CColum As String
41
+
39
42
  Dim lineNum As Integer
40
43
  'COUNTA(A4:A40)=37と同等
41
44
  lineNum = WorksheetFunction.CountA(Range("A4", Range("A" & Rows.Count))) - 1

2

文章間違い

2021/06/07 01:26

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -23,6 +23,7 @@
23
23
  新規シートにその精査後のデータを出力する。
24
24
  ※2次元配列にて、
25
25
  Excelのデータ(A列～O列※ただしC列は取得しない)を取得
26
+ 元データは縦が可変で横は不変。(縦=行、横=列)
26
27
 
27
28
  ・データを取得し配列に投下
28
29
  ・配列からデータを取り出し、新規シートへ出力する

1

文章間違い

2021/06/07 01:25

投稿

退会済みユーザー
title CHANGED
File without changes
body CHANGED
@@ -24,8 +24,8 @@
24
24
  ※2次元配列にて、
25
25
  Excelのデータ(A列～O列※ただしC列は取得しない)を取得
26
26
 
27
- ・配列を取得する
27
+ ・データを取得し配列に投下
28
- ・取得したデータを出力する
28
+ ・配列からデータを取り出し、新規シートへ出力する
29
29
 
30
30
  現状は処理を2つにわけるプログラムを作っている最中です。
31
31