回答編集履歴
1
修正
answer
CHANGED
|
@@ -25,7 +25,7 @@
|
|
|
25
25
|
If dicRow.Exists(d) Then
|
|
26
26
|
saki.Cells(dicRow(d), dicCol(d)) = moto.Cells(c.Row, 1)
|
|
27
27
|
If InStr(c.Text, "臨時") > 0 Then saki.Cells(dicRow(d), dicCol(d) + 1) = "臨時"
|
|
28
|
-
dicCol(
|
|
28
|
+
dicCol(d) = dicCol(d) + 2
|
|
29
29
|
End If
|
|
30
30
|
Next
|
|
31
31
|
End Sub
|