回答編集履歴
2
修正
test
CHANGED
|
@@ -1,8 +1,6 @@
|
|
|
1
1
|
InStrの使い方は他の方からご指摘の通りですが、
|
|
2
2
|
|
|
3
3
|
vbLfはあってもなくても動くはずだと思います。
|
|
4
|
-
|
|
5
|
-
|
|
6
4
|
|
|
7
5
|
```VBA
|
|
8
6
|
|
|
@@ -30,14 +28,18 @@
|
|
|
30
28
|
|
|
31
29
|
txt = ws.Range("AT" & k).Value
|
|
32
30
|
|
|
33
|
-
|
|
31
|
+
If txt <> "" Then
|
|
34
32
|
|
|
33
|
+
ary = Split(txt, vbLf)
|
|
34
|
+
|
|
35
|
-
ws.Range("BP" & k).Resize(, UBound(ary) + 1).Value = ary
|
|
35
|
+
ws.Range("BP" & k).Resize(, UBound(ary) + 1).Value = ary
|
|
36
|
+
|
|
37
|
+
End If
|
|
36
38
|
|
|
37
39
|
Next
|
|
38
40
|
|
|
39
41
|
End Sub
|
|
40
42
|
|
|
43
|
+
```
|
|
41
44
|
|
|
42
|
-
|
|
43
|
-
|
|
45
|
+
（空白時の条件分岐を追加しました。）
|
1
修正
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
InStrの使い方は
|
|
1
|
+
InStrの使い方は他の方からご指摘の通りですが、
|
|
2
2
|
|
|
3
3
|
vbLfはあってもなくても動くはずだと思います。
|
|
4
4
|
|