回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -38,8 +38,6 @@
|
|
|
38
38
|
.Cells(i + 3, 2 + c * 3).Resize(DataRowCount).Value
|
|
39
39
|
Next
|
|
40
40
|
|
|
41
|
-
wsSet.Cells(lngRowsNo, "F").Value = .Cells(i, 2).Value
|
|
42
|
-
|
|
43
41
|
lngRowsNo = lngRowsNo + ec1
|
|
44
42
|
End If
|
|
45
43
|
Next i
|