回答編集履歴
2
修正
answer
CHANGED
|
@@ -1,6 +1,5 @@
|
|
|
1
1
|
InStrの使い方は他の方からご指摘の通りですが、
|
|
2
2
|
vbLfはあってもなくても動くはずだと思います。
|
|
3
|
-
|
|
4
3
|
```VBA
|
|
5
4
|
Sub sample_soujou()
|
|
6
5
|
|
|
@@ -14,9 +13,11 @@
|
|
|
14
13
|
|
|
15
14
|
For k = 2 To LastRow
|
|
16
15
|
txt = ws.Range("AT" & k).Value
|
|
16
|
+
If txt <> "" Then
|
|
17
|
-
|
|
17
|
+
ary = Split(txt, vbLf)
|
|
18
|
-
|
|
18
|
+
ws.Range("BP" & k).Resize(, UBound(ary) + 1).Value = ary
|
|
19
|
+
End If
|
|
19
20
|
Next
|
|
20
21
|
End Sub
|
|
21
|
-
|
|
22
|
-
```
|
|
22
|
+
```
|
|
23
|
+
（空白時の条件分岐を追加しました。）
|
1
修正
answer
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
InStrの使い方は
|
|
1
|
+
InStrの使い方は他の方からご指摘の通りですが、
|
|
2
2
|
vbLfはあってもなくても動くはずだと思います。
|
|
3
3
|
|
|
4
4
|
```VBA
|