协助lF声明和单一循环

我很累人得到每个Empty cell FakeEmail(i).com ie，如果有3个`空细胞我得到

FakeEmail1.com FakeEmail2.com FakeEmail3.com

在那里有各自的细胞

我知道这是不正确的，但无法弄清楚正确的句法Cells(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 

Answer 1

尝试

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