[已解决]关于单元格赋值的问题

470322598

如
表1 有两个字段

日期        姓名

             张三

表2

日期                             姓名

2013/12/13                   张三

查找两个表姓名相同的值，然后 把 表2的日期 赋给 表1的日期。
                 

最佳答案

月排行榜 / 总排行榜

E路人

2013-11-27 08:58

1. Sub test()
   
2.     Dim i, x
   
3.     For i = 2 To Sheets("Sheet2").Range("B65536").End(xlUp).Row
   
4.         For x = 2 To Sheets("Sheet1").Range("B65536").End(xlUp).Row
   
5.             If Sheets("Sheet2").Cells(i, 2) = Sheets("Sheet1").Cells(x, 2) Then
   
6.                 Sheets("Sheet1").Cells(x, 1) = Sheets("Sheet2").Cells(i, 1).Value
   
7.             End If
   
8.         Next x
   
9.     Next i
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

sklzz888

上传的东东，很是模糊呢，能上传个附件吗，这里有好多高手呢

E路人

1. Sub test()
   
2.     Dim i, x
   
3.     For i = 2 To Sheets("Sheet2").Range("B65536").End(xlUp).Row
   
4.         For x = 2 To Sheets("Sheet1").Range("B65536").End(xlUp).Row
   
5.             If Sheets("Sheet2").Cells(i, 2) = Sheets("Sheet1").Cells(x, 2) Then
   
6.                 Sheets("Sheet1").Cells(x, 1) = Sheets("Sheet2").Cells(i, 1).Value
   
7.             End If
   
8.         Next x
   
9.     Next i
   
10. End Sub
    

复制代码

我心飞翔410

上传附件啊

baksy

请在表1的A2输入以下公式往下托。

日期	姓名
公式	张三

=INDIRECT("Sheet2!A"&MATCH(B2,Sheet2!B:B,0))

E路人

1. Sub test()
   
2.     Dim x, rng
   
3.     For x = 2 To Sheets("Sheet1").Range("B65536").End(xlUp).Row
   
4.         Set rng = Sheet2.Range("B2:B100").Find(Sheets("Sheet1").Cells(x, 2).Value, , , 1)
   
5.         If Not rng Is Nothing Then
   
6.             Sheets("Sheet1").Cells(x, 1) = rng.Offset(0, -1)
   
7.         End If
   
8.     Next x
   
9. End Sub
   

复制代码