Excel lF语句和单循环的帮助

我厌倦了为每一个

空单元格

FakeEmail（I.com

获取，也就是说，如果有3个空单元格，我就会获取

FakeEmail1.com

FakeEmail2.com

FakeEmail3.com

在那里有各自的单元

我知道这是不正确的，但不能找出正确的语法

单元格（i，4）.Value=FakeEmail（i.com

谢谢

Sub AAA()
Dim lRow As Long
Dim i As Long
lRow = Range("D" & Rows.Count).End(xlUp).Row

For i = 1 To lRow
    If Cells(i, 4).Value = "" Then
        Cells(i, 4).Value = FakeEmail(i).com
    End If
Next i
End Sub

试一试

---

谢谢你的编辑brettdj，很有帮助！

   Cells(i, 4).Value = "FakeEmail" & i & ".com