为什么这个VBA不能填充？？？

cdscds0501

各位大神，为什么这个VBA不能根据A列的信息，填充B列的数据呢？

liulang0808

Cells(i, 2) = "=VLOOKUP(A" & i & ",Sheet2!A:B,2,0)"
多一层括号

cdscds0501

liulang0808 发表于 2022-1-24 07:15
Cells(i, 2) = "=VLOOKUP(A" & i & ",Sheet2!A:B,2,0)"
多一层括号

谢谢，有什么办法能使中间的空行，不显示任何字符？有什么代码能替代这里的代码中的公式？

hansome221

cdscds0501 发表于 2022-1-24 13:56
谢谢，有什么办法能使中间的空行，不显示任何字符？有什么代码能替代这里的代码中的公式？

再跟一句判断     
if cells(i,2)咋样  then cells(i,2)=""

cdscds0501

hansome221 发表于 2022-1-24 14:32
再跟一句判断     
if cells(i,2)咋样  then cells(i,2)=""

怎么弄呢？能否用代码替代公式？
Sub s()
    For i = 1 To Cells(Rows.Count, 1).End(3).Row
        Cells(i, 2) = "=VLOOKUP(A" & i & ",Sheet2!A:B,2,0)"
    Next
End Sub
有什么代码可以替代“ "=VLOOKUP(A" & i & ",Sheet2!A:B,2,0)"”

cdscds0501

liulang0808 发表于 2022-1-24 07:15
Cells(i, 2) = "=VLOOKUP(A" & i & ",Sheet2!A:B,2,0)"
多一层括号

，谢谢

cdscds0501

此代码已经可以满足要求了，谢谢各位大神。
Sub aaa()

Dim i As Integer, j As Integer

Application.ScreenUpdating = False

With Sheets("sheet2")
For i = 1 To [C65536].End(3).Row()

    For j = 1 To [A65536].End(3).Row()

        If Sheets("Sheet2").Cells(j, 1) = Cells(i, 3) Then

            Cells(i, 4) = Sheets("Sheet2").Cells(j, 2)
            Cells(i, 5) = Sheets("Sheet2").Cells(j, 3)
    Exit For

        Else

            Cells(i, 4) = ""

        End If

    Next

Next
End With
Application.ScreenUpdating = True

End Sub
谢谢，各位，希望集思广益，多多删繁化简。

cdscds0501

感谢VBA大神、。又可以用得上差点忘记了