質問編集履歴
3
コード修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -45,17 +45,17 @@
|
|
|
45
45
|
Dim i As Long
|
|
46
46
|
|
|
47
47
|
Do
|
|
48
|
-
Result = Split(Range("
|
|
48
|
+
Result = Split(Range("列1" & 1 ), ",") '[1,2,3,]
|
|
49
49
|
|
|
50
50
|
i = 0
|
|
51
51
|
For i = LBound(Result) To UBound(Result)
|
|
52
52
|
|
|
53
53
|
If Result(i) = "" Then
|
|
54
|
-
Range("
|
|
54
|
+
Range("列5" & 3 + i) = Range("列3" & 3 + i)
|
|
55
55
|
|
|
56
|
-
ElseIf Result(i)
|
|
56
|
+
ElseIf Result(i) = LBound(Result) Then
|
|
57
57
|
|
|
58
|
-
Range("
|
|
58
|
+
Range("列5" & 3 + i) = Range("列2" & 3 + i)
|
|
59
59
|
|
|
60
60
|
End If
|
|
61
61
|
Next i
|
2
コードずれ修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -41,33 +41,27 @@
|
|
|
41
41
|
### 該当のソースコード
|
|
42
42
|
|
|
43
43
|
```
|
|
44
|
-
|
|
44
|
+
Dim Result As Variant
|
|
45
|
-
|
|
45
|
+
Dim i As Long
|
|
46
|
-
|
|
47
|
-
Do
|
|
48
|
-
Result = Split(Range("A1"), ",") '[1,2,3,]
|
|
49
|
-
|
|
50
|
-
i = 0
|
|
51
|
-
For i = LBound(Result) To UBound(Result)
|
|
52
|
-
|
|
53
|
-
|
|
54
|
-
|
|
55
|
-
If Result(i) = "" Then
|
|
56
|
-
|
|
57
|
-
Range("E" & 4 + i) = Range("B" & 4 + i)
|
|
58
46
|
|
|
59
|
-
|
|
47
|
+
Do
|
|
60
|
-
|
|
61
|
-
|
|
48
|
+
Result = Split(Range("A1"), ",") '[1,2,3,]
|
|
62
|
-
End If
|
|
63
49
|
|
|
64
|
-
|
|
50
|
+
i = 0
|
|
51
|
+
For i = LBound(Result) To UBound(Result)
|
|
65
52
|
|
|
66
|
-
|
|
53
|
+
If Result(i) = "" Then
|
|
67
|
-
|
|
54
|
+
Range("E" & 4 + i) = Range("B" & 4 + i)
|
|
68
55
|
|
|
69
|
-
|
|
56
|
+
ElseIf Result(i) > LBound(Result) Then
|
|
57
|
+
|
|
70
|
-
|
|
58
|
+
Range("E" & 4 + i) = Range("A" & 4 + i)
|
|
59
|
+
|
|
60
|
+
End If
|
|
61
|
+
Next i
|
|
62
|
+
Exit Do
|
|
63
|
+
Loop
|
|
64
|
+
|
|
71
65
|
End Sub
|
|
72
66
|
|
|
73
67
|
```
|
1
Excelタグを追加致しました。。
title
CHANGED
|
File without changes
|
body
CHANGED
|
File without changes
|