[已解决]用vba代码实现查活动单元格中单词的词义

lifuyan18 · 发表于 2015-4-19 13:35

请各位老师帮忙，sheet1中有单词和词义，sheet2中只有单词，如何实现查找sheet2中活动单元格中单词的词义，并显示在该单词的右边单元格里，具体请见附件，谢谢各位老师！

Book1.rar (8.7 KB, 下载次数: 3)

dsmch · 发表于 2015-4-19 13:44

本帖最后由 dsmch 于 2015-4-19 13:45 编辑

选中表二A列单元格试试

as0810114 · 发表于 2015-4-19 13:49

Sub test()
Dim arr1, arr2, brr(1 To 100000, 1 To 1)
Dim i, j, k
arr1 = Sheets(1).Range("A1").CurrentRegion
arr2 = Sheets(2).Range("A1").CurrentRegion
For i = 1 To UBound(arr2)
For j = 1 To UBound(arr1)
      If arr1(j, 1) = arr2(i, 1) Then
         k = k + 1
         brr(k, 1) = arr1(j, 2)
      End If
Next
Next
Sheets(2).[b1].Resize(k, 1) = brr
End Sub

as0810114 · 发表于 2015-4-19 13:50

=VLOOKUP(A1,Sheet1!A:B,2,)
函数也可以做

lifuyan18 · 发表于 2015-4-20 14:22

感谢各位教师的辛苦付出，我正在学习！

lifuyan18 · 发表于 2015-4-20 15:47

Private Sub CommandButton1_Click()
a = Sheet1.[a65536].End(xlUp).Row
For i = 1 To a
If ActiveCell.Value = Sheet1.Cells(i, 1) Then
Sheet2.Cells(ActiveCell.Row, 2) = Sheet1.Cells(i, 2)
End If
End Sub
Next
在sheet2中插入一个命令按钮，输入上述代码，同样可以实现查单词词义的功能，但速度比较慢。

lifuyan18 · 发表于 2015-4-23 15:18

dsmch 发表于 2015-4-19 13:44
选中表二A列单元格试试

本答案符合我的要求，我认为是最佳答案，谢谢你！

爱疯 · 发表于 2015-4-23 15:23

http://www.excelpx.com/thread-340222-1-1.html
建议下次可以学习自己评最佳

		自动登录	找回密码
密码			注册

[已解决]用vba代码实现查活动单元格中单词的词义

相关帖子

点评