質問編集履歴
1
ソースの修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -91,7 +91,7 @@
|
|
|
91
91
|
wsSet.Cells(lngRowsNo, 3).Value = .Cells(n, 3).Value
|
|
92
92
|
|
|
93
93
|
'担当者が空白の時スキップする
|
|
94
|
-
If Cells(n, 3) = "
|
|
94
|
+
If Cells(n, 3) = "" Then
|
|
95
95
|
n = n + 1
|
|
96
96
|
End If
|
|
97
97
|
|