質問: Sheets(A).Cells(i, 2) ・ ・ ・ End With -------------------------
回答: With Sheets(B) If Sheets(A).Cells(i, 2).Value = "" Then .Cells(g, 9).Value = Sheets(A).Cells(i, 2).Value Else .Cells(g, 9).Value = "対象なし" End If