如何将VBA查找到的数据填入指定单元格内?

Sub test()
Dim i, j As Variant
i = InputBox("请输入需要填入的内容")
Set j = Sheets("数据").Range("b:b").Find(i)
If j Is Nothing Then
MsgBox ("没有找到【该应用单位】")
Else
Sheets("报告").Range("P4") = j
End If
End Sub
你试试把
如果你是需要在第二个表中也要寻找对应的行，那就用for遍历的语句改写。很简单

此代码不行。
Public Sub msgbox1()
Dim i，n '定义一个变量
i = InputBox("请输入需要填入的内容") '把对话框的文字赋值给变量
n=application.worksheetfunction(sheet1.range("d1:d65535")
for x=1 to cint(n)
if sheet1.range("c"&x").value=i then 报告.range("p4")=i
next x
End Sub

Sheet1.Cells(1, 1) = i 改成：
Sheets("报告").range("P4").value = i