質問編集履歴
1
タイトル変更。処理前後例を入れました。
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
Excel VBA 配列の
|
|
1
|
+
Excel VBA 配列から指定文字数を取り出して別の配列に入れて一括で書き出したい
|
body
CHANGED
|
@@ -1,10 +1,10 @@
|
|
|
1
|
-
|
|
1
|
+
Excel VBAで配列を勉強しておりますが、まだよく理解できておらず
|
|
2
2
|
お恥ずかしい初歩的な問題ですがご教示いただきたく宜しくお願いいたします。
|
|
3
3
|
（配列に入れなくても処理できる内容ではありますが、配列の勉強のため）
|
|
4
4
|
|
|
5
5
|
1列を配列にいれて、値によって別に配列に格納後
|
|
6
6
|
一括入力させたいのですが。
|
|
7
|
-
Dim MsRange As Variant
|
|
7
|
+
```Dim MsRange As Variant
|
|
8
8
|
Dim TaYoRange As Variant
|
|
9
9
|
Dim i As Long
|
|
10
10
|
MsRange=Range("A1:A5000")
|
|
@@ -17,4 +17,10 @@
|
|
|
17
17
|
TaYoRange(i, 1)= As & "OK"
|
|
18
18
|
End If
|
|
19
19
|
Next i
|
|
20
|
-
Range("B1:B5000") = TaYoRange
|
|
20
|
+
Range("B1:B5000") = TaYoRange
|
|
21
|
+
```
|
|
22
|
+
|
|
23
|
+
◎処理前
|
|
24
|
+
|
|
25
|
+
◎処理後
|
|
26
|
+
|