excel使用VBA制作在sheet2中的单元格A1和B2中输入数据后到SHEET1中查找A1和F1列的单元格的数据和SHEET2中

Question

excel使用VBA制作在sheet2中的单元格A1和B2中输入数据后到SHEET1中查找A1和F1列的单元格的数据和SHEET2中的A1和B2数据一样后，在SHEET1中的A1和B2对于过来的H1列的单元格的数据修改成我在SHEET2中的自己定义的某个单元格的数据。就是说我每次查找完后在我查找的列的H1数据都该成我在SHEET2中的自己定义的某个单元格的数据。举例：我在SHEET2中的A1和B2中分别输入“姓名”和“工程部”然后就到SHEET1中的A1和F1列中查找“姓名”和“工程部”找到后就在SHEET1中的A1和F1对过去的H1列数据修改成我在SHEET2中我定义B3的数据。这是个查找和替换的VBA希望有高手可以帮助我。

Answer 1

A1和F1都是固定的单元格，所以写死就行了。
思路: if worksheet("sheet1").range("A1").value = worksheet("sheet2").range("A1").value and
worksheet("sheet1").range("F1").value = worksheet("sheet2").range("B2").value
then
worksheet("sheet1").range("H1").value = worksheet("sheet2").range("B3").value
end if

Answer 2

本来想帮忙，但是被搞晕了，实在不清楚表示的意思，下面的能说明白吗？
1、“过来的H1列的单元格”什么意思，从那来的，怎么来的？
2、可不可以不要把单独的单元格和列放在一起说啊，到底是一列还是一个单元格？？真是晕啊！！
“F1列”“H1列”“我查找的列的H1数据”“A1和F1列”
以上说法太难理解

追问

就是说我在SHEET2中的A1和B1单元格中输入数据后去到SHHE1中查找,查找的方法分别对应是这样的：SHEET2中的A1中输入的数据到SHEET1中的A1列中去查找，SHEET2中的B1中输入的数据到SHEET1中的F1列中去查找。都查找正确到后。
问题来了：这时我要他查找正确后对应的行 的H列对应的单元格中的数据修改成我填写在SHEET2中B2单元格的数据。
也就是我查找到A1和B1的数据在分别在SHEET1中的A7列和B7中后，把这一行的H7中数据修改。

追答

“SHEET2中的B1中输入的数据到SHEET1中的F1列中去查找”与“找到A1和B1的数据在分别在SHEET1中的A7列和B7中后”前后不一致啊，再搞清楚一点!
楼主啊，用点心!!
还有“A7列”和“A1列”这样的说法真的太让人无语了。要不是A列，要不就是A7单元格。

追问

分别在SHEET2中的A1单元格和B2单元格中输入数据后到SHEET1中的A列和F列查找。A1单元格数据对应查找A列. B2单元格数据对应查找F列。查找正确后。 把我在SHEET2中的B2单元格输入的数据替换我查找到数据对应行的H列单元格的数据。 举例：也就是查找到数据在A列的A7单元格和F列的F7单元格正确后在这一行的H7单元格替换我SHEET2中B2单元格的数据。 以此类推。 我在SHEET2中输入数据是三个单元格同时输入的。回车

追答

我这样理解，就是sheet2表中A1和B2在sheet1表中查找到的A列和F列的单元格必须是同一行的，就把这一行对应的H列的单元格赋值为sheet1表中的B2(又不一样了，最前面说的是B3)，程序如下：(回车触发我不会，需要执行宏)
Sub ddd()
Dim i, a As Integer
Sheets("Sheet1").Select
a = Range("a65536").End(xlUp).Row
For i = 1 To a
If Sheets("Sheet1").Cells(i, 1) = Sheets("Sheet2").Cells(1, 1) And Sheets("Sheet1").Cells(i, 6) = Sheets("Sheet2").Cells(2, 2) Then Sheets("Sheet1").Cells(i, 8) = Sheets("Sheet2").Cells(2, 2)
Next
End Sub

追问

提示说下标越界。

追答

你的表名是sheet1和sheet2吗？如果不是请修改表名或程序，程序里是以用sheet1和sheet2来做的，

Answer 3

你绕口令啊 发表格给我nkhys@qq.com 我看看