質問編集履歴
3
画像の差し替え
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -142,4 +142,4 @@
|
|
|
142
142
|
|
|
143
143
|
Sheet3にSheet1から取得したデータを書き出す
|
|
144
144
|
|
|
145
|
-
|
2
コードについて
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -8,7 +8,7 @@
|
|
|
8
8
|
|
|
9
9
|
想定動作としては、
|
|
10
10
|
|
|
11
|
-
「Sheet
|
|
11
|
+
「Sheet2」A列にある文字を1行ずつ、「Sheet3]A,B,Cとセル指定をして取得したいです。
|
|
12
12
|
|
|
13
13
|
下記のコードではCSVのずれを防ぐために改行文字を工夫してCSV読み取り、シート出力をしております。こちらが原因なのでしょうか。
|
|
14
14
|
|
|
@@ -124,11 +124,11 @@
|
|
|
124
124
|
|
|
125
125
|
Sub Sample()
|
|
126
126
|
|
|
127
|
-
Range("A
|
|
127
|
+
Sheets(Sheet3).Range("A2").Value = Split(Sheets(Sheet2).Range("A1").Value, vbLf)(0)
|
|
128
128
|
|
|
129
|
-
Range("B2").Value = Split(Range("A1").Value, vbLf)(1) '//エラー インデックスが有効でない
|
|
129
|
+
Sheets(Sheet3).Range("B2").Value = Split(Sheets(Sheet2).Range("A1").Value, vbLf)(1) '//エラー インデックスが有効でない
|
|
130
130
|
|
|
131
|
-
Range("C
|
|
131
|
+
Sheets(Sheet3).Range("C2").Value = Split(Sheets(Sheet2).Range("A1").Value, vbLf)(2)
|
|
132
132
|
|
|
133
133
|
End Sub
|
|
134
134
|
|
|
@@ -140,6 +140,6 @@
|
|
|
140
140
|
|
|
141
141
|
|
|
142
142
|
|
|
143
|
-
Sheet
|
|
143
|
+
Sheet3にSheet1から取得したデータを書き出す
|
|
144
144
|
|
|
145
145
|
|
1
画像について
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -134,6 +134,12 @@
|
|
|
134
134
|
|
|
135
135
|
```
|
|
136
136
|
|
|
137
|
+
Sgeet1にCSVデータ出力
|
|
138
|
+
|
|
137
139
|
]
|
|
138
140
|
|
|
141
|
+
|
|
142
|
+
|
|
143
|
+
Sheet２にSheet1から取得したデータを書き出す
|
|
144
|
+
|
|
139
145
|
|