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

編集履歴

質問編集履歴

15

文章間違い

2021/06/07 04:35

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -110,7 +110,7 @@
110
110
 
111
111
  'COUNTA(A4:A40)=37と同等
112
112
 
113
- lineNum = WorksheetFunction.CountA(Range("A4", Range("A" & Rows.Count))) - 1
113
+ lineNum = WorksheetFunction.CountA(Range("A4", Range("A" & Rows.Count)))
114
114
 
115
115
 
116
116
 
@@ -124,7 +124,7 @@
124
124
 
125
125
 
126
126
 
127
- For j = 0 To lineNum - 1
127
+ For j = 0 To lineNum
128
128
 
129
129
 
130
130
 

14

文章間違い

2021/06/07 04:35

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -120,6 +120,8 @@
120
120
 
121
121
  ReDim extractedData(lineNum , 14) As Variant
122
122
 
123
+ ReDim Preserve extractedData(lineNum, 14) As Variant
124
+
123
125
 
124
126
 
125
127
  For j = 0 To lineNum - 1

13

かみ砕いた説明を記載

2021/06/07 04:00

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -26,7 +26,7 @@
26
26
 
27
27
  において、右辺は正常に取得。しかし、左辺が参照できず。
28
28
 
29
- エラー時のiとjの値
29
+ エラー時のjとiの値
30
30
 
31
31
  j=1,i=0
32
32
 

12

かみ砕いた説明を記載

2021/06/07 03:32

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -28,7 +28,7 @@
28
28
 
29
29
  エラー時のiとjの値
30
30
 
31
- i=0,j=1
31
+ j=1,i=0
32
32
 
33
33
  ※ただし、iのFor文を回し終わった後の、jのFor文での2回目の処理での話です。
34
34
 

11

かみ砕いた説明を記載

2021/06/07 03:32

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -25,6 +25,10 @@
25
25
  →場所：extractedData(j, i) = Cells(j + 4, i + 1)
26
26
 
27
27
  において、右辺は正常に取得。しかし、左辺が参照できず。
28
+
29
+ エラー時のiとjの値
30
+
31
+ i=0,j=1
28
32
 
29
33
  ※ただし、iのFor文を回し終わった後の、jのFor文での2回目の処理での話です。
30
34
 

10

文章間違い

2021/06/07 03:31

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -114,7 +114,7 @@
114
114
 
115
115
  'A列～O列まで
116
116
 
117
- ReDim extractedData(num , 14) As Variant
117
+ ReDim extractedData(lineNum , 14) As Variant
118
118
 
119
119
 
120
120
 

9

かみ砕いた説明を記載

2021/06/07 03:20

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -43,6 +43,10 @@
43
43
  ReDim Preserve buf(r, c)
44
44
 
45
45
  において変更できるのはcのみ
46
+
47
+ Trancepose関数を利用しようにも、
48
+
49
+ 以下のコードに加える事ができる方法がわかりかねております。
46
50
 
47
51
 
48
52
 

8

かみ砕いた説明を記載

2021/06/07 03:18

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -28,7 +28,9 @@
28
28
 
29
29
  ※ただし、iのFor文を回し終わった後の、jのFor文での2回目の処理での話です。
30
30
 
31
+ すなわち、
32
+
31
- すなわち、1つの行で取得したいデータがある右の列まで取得後、次の行に移った時の話です。
33
+ ある行で、取得したいデータがある右の最後の列まで取得後、次の行に移った時の話です。
32
34
 
33
35
 
34
36
 

7

かみ砕いた説明を記載

2021/06/07 03:17

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -27,6 +27,8 @@
27
27
  において、右辺は正常に取得。しかし、左辺が参照できず。
28
28
 
29
29
  ※ただし、iのFor文を回し終わった後の、jのFor文での2回目の処理での話です。
30
+
31
+ すなわち、1つの行で取得したいデータがある右の列まで取得後、次の行に移った時の話です。
30
32
 
31
33
 
32
34
 

6

文章間違い

2021/06/07 03:16

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -25,6 +25,8 @@
25
25
  →場所：extractedData(j, i) = Cells(j + 4, i + 1)
26
26
 
27
27
  において、右辺は正常に取得。しかし、左辺が参照できず。
28
+
29
+ ※ただし、iのFor文を回し終わった後の、jのFor文での2回目の処理での話です。
28
30
 
29
31
 
30
32
 

5

文章間違い

2021/06/07 03:15

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -21,6 +21,10 @@
21
21
  【エラー内容】
22
22
 
23
23
  インデックスが有効範囲にありません
24
+
25
+ →場所：extractedData(j, i) = Cells(j + 4, i + 1)
26
+
27
+ において、右辺は正常に取得。しかし、左辺が参照できず。
24
28
 
25
29
 
26
30
 
@@ -110,7 +114,7 @@
110
114
 
111
115
  For i = 0 To 14
112
116
 
113
- 'C列を無視
117
+ 'C列を無視(アルファベットが入っているデータがC列の為、以下で除外)
114
118
 
115
119
  If Cells(j + 4, i + 1).Value Like "[A-Z]" Then
116
120
 

4

文章間違い

2021/06/07 03:10

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -58,6 +58,8 @@
58
58
 
59
59
 
60
60
 
61
+
62
+
61
63
  現状は処理を2つにわけるプログラムを作っている最中です。
62
64
 
63
65
 
@@ -65,6 +67,12 @@
65
67
 
66
68
 
67
69
  以下、現状のプログラムコード
70
+
71
+
72
+
73
+
74
+
75
+ ※現在、データを取得してくる範囲はA4:O40です
68
76
 
69
77
 
70
78
 

3

文章間違い

2021/06/07 02:07

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -74,6 +74,12 @@
74
74
 
75
75
 
76
76
 
77
+
78
+
79
+ Dim CColum As String
80
+
81
+
82
+
77
83
  Dim lineNum As Integer
78
84
 
79
85
  'COUNTA(A4:A40)=37と同等

2

文章間違い

2021/06/07 01:26

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -47,6 +47,8 @@
47
47
  ※2次元配列にて、
48
48
 
49
49
  Excelのデータ(A列～O列※ただしC列は取得しない)を取得
50
+
51
+ 元データは縦が可変で横は不変。(縦=行、横=列)
50
52
 
51
53
 
52
54
 

1

文章間違い

2021/06/07 01:25

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -50,9 +50,9 @@
50
50
 
51
51
 
52
52
 
53
- ・配列を取得する
53
+ ・データを取得し配列に投下
54
54
 
55
- ・取得したデータを出力する
55
+ ・配列からデータを取り出し、新規シートへ出力する
56
56
 
57
57
 
58
58