質問編集履歴
3
画像の差し替え
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -70,4 +70,4 @@
|
|
|
70
70
|
]
|
|
71
71
|
|
|
72
72
|
Sheet3にSheet1から取得したデータを書き出す
|
|
73
|
-
|
2
コードについて
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -3,7 +3,7 @@
|
|
|
3
3
|
ネットでも検索していろいろ試しましたが、一度も取得できずでした。
|
|
4
4
|
|
|
5
5
|
想定動作としては、
|
|
6
|
-
「
|
|
6
|
+
「Sheet2」A列にある文字を1行ずつ、「Sheet3]A,B,Cとセル指定をして取得したいです。
|
|
7
7
|
下記のコードではCSVのずれを防ぐために改行文字を工夫してCSV読み取り、シート出力をしております。こちらが原因なのでしょうか。
|
|
8
8
|
このコードを書くのにもかなり時間がかかり勉強不足のため理解ができておりません。
|
|
9
9
|
方法が見つからず苦戦しております。
|
|
@@ -61,13 +61,13 @@
|
|
|
61
61
|
こちらのコードもある方からご教示いただいたのですがエラーが出て動かないです。
|
|
62
62
|
```
|
|
63
63
|
Sub Sample()
|
|
64
|
-
Range("
|
|
64
|
+
Sheets(Sheet3).Range("A2").Value = Split(Sheets(Sheet2).Range("A1").Value, vbLf)(0)
|
|
65
|
-
Range("B2").Value = Split(Range("A1").Value, vbLf)(1) '//エラー インデックスが有効でない
|
|
65
|
+
Sheets(Sheet3).Range("B2").Value = Split(Sheets(Sheet2).Range("A1").Value, vbLf)(1) '//エラー インデックスが有効でない
|
|
66
|
-
Range("
|
|
66
|
+
Sheets(Sheet3).Range("C2").Value = Split(Sheets(Sheet2).Range("A1").Value, vbLf)(2)
|
|
67
67
|
End Sub
|
|
68
68
|
```
|
|
69
69
|
Sgeet1にCSVデータ出力
|
|
70
70
|
]
|
|
71
71
|
|
|
72
|
-
|
|
72
|
+
Sheet3にSheet1から取得したデータを書き出す
|
|
73
73
|
|
1
画像について
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -66,5 +66,8 @@
|
|
|
66
66
|
Range("C3").Value = Split(Range("A1").Value, vbLf)(2)
|
|
67
67
|
End Sub
|
|
68
68
|
```
|
|
69
|
+
Sgeet1にCSVデータ出力
|
|
69
70
|
]
|
|
71
|
+
|
|
72
|
+
Sheet２にSheet1から取得したデータを書き出す
|
|
70
73
|
|