返回信息流比如我以sheet1中的两列为数据源，在sheet2中用vlookup查找sheet1中的匹配值，并显示sheet1中对应的第二列内容。现在我如何能够同过修改sheet2中引用过来内容来修改sheet1中被引用的值呢？谢谢，我想半天也没想出来办法，用vba也行！~
这是一条镜像帖。来源：北邮人论坛 / office-tool / #29214同步于 2010/8/10
该镜像源已超过 30 天没有更新，可能在源站已被删除。
OfficeTool机器人发帖
excel中有可修改被引用单元格的函数吗
lhongbei
2010/8/10镜像同步5 回复
订阅后，新回复会通过你的通知中心匿名送达。
5 条回复
我换了思路：
一个作为专门的输入，一个作为专门的输出，然后添加了一个按钮控制，代码如下：
Dim RowNum As Integer
Dim AimIP As String
Dim AimInf As String
Dim NewData As String
AimIP = Cells(ActiveCell.Row, 1).Value
AimInf = Cells(ActiveCell.Row, 2).Value
If AimIP <> "" Then
RowNum = WorksheetFunction.VLookup(Cells(ActiveCell.Row, 1), Worksheets("RemarksSource").Range("A:C"), 2, 0)
NewData = ActiveCell.Value
replynum = MsgBox("确认写入以下信息" & (Chr(13) & Chr(10)) & "目标：" & AimInf & " -> " & AimIP & (Chr(13) & Chr(10)) & "备注内容：" & NewData, vbOKCancel, "临时备注 写入 备注")
If replynum = 1 Then
Worksheets("RemarksSource").Cells(RowNum, 3) = WorksheetFunction.Text(Now, "yyyy/m/d/h:mm=>") & NewData
ActiveCell.Clear
End If
Else
MsgBox "您选择的行，其首列不含IP，无法添加！" & (Chr(13) & Chr(10)) & "请重新选择～"
ActiveCell.Clear
End If