回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -6,13 +6,14 @@
|
|
|
6
6
|
ary = Split(Worksheets(1).TextBox5.Text, ",")
|
|
7
7
|
|
|
8
8
|
Dim cnt As Long
|
|
9
|
-
cnt = UBound(ary)
|
|
9
|
+
cnt = UBound(ary) + 1
|
|
10
|
-
|
|
10
|
+
If cnt = 0 Then Exit Sub
|
|
11
|
+
|
|
12
|
+
Debug.Print cnt
|
|
11
13
|
With Worksheets(2)
|
|
12
14
|
.Cells(1, 1).Resize(cnt).Value = WorksheetFunction.Transpose(ary)
|
|
13
15
|
.Cells(1, 2).Resize(cnt).Value = Worksheets(1).TextBox6.Text
|
|
14
16
|
.Cells(1, 3).Resize(cnt).Value = Worksheets(1).TextBox7.Text
|
|
15
17
|
End With
|
|
16
|
-
|
|
17
18
|
End Sub
|
|
18
19
|
```
|