Excel総合相談所 96

'〜続き〜
For d = 2 To c
If e.Cells(d, 10) <> 0 Then
f.Cells(d, 10) = e.Cells(d, 10)
g.Cells(d, 1) = e.Cells(d, 10)
f.Cells(d, 1) = e.Cells(d, 1)
g.Cells(d, 2) = e.Cells(d, 1)
f.Cells(d, 2) = e.Cells(d, 2)
g.Cells(d, 3) = e.Cells(d, 2)
End If
Next
Application.EnableEvents = False '警告メッセージを出させない
b.Save '新規ブック保存
b.Close '新規ブック閉じる
Application.EnableEvents = True
Set e = Nothing
Set f = Nothing
Set g = Nothing
Application.ScreenUpdating = True
End Sub

違ったらすまんこ