[求助]请问如何用VBA查找某值是否存在某列，若不存在则添加这个值到列中？

twj007

sheet1
sheet2



请问如何点击sheet1中的按钮，使sheet2中的A1单元格的值“广发银行”在sheet1中A列查找，若已经存在则提示存在，若不存在则添加到sheet1的A列后面？


谢谢！

twj007

朱荣兴 发表于 2018-11-22 09:33
Private Sub CommandButton1_Click()
Dim rng As Range
Set rng = Sheet1.Columns(1).Find(Sheet2.[a1],  ...

收到，很好用，谢谢你的帮忙！

twj007

朱荣兴 发表于 2018-11-22 09:33
Private Sub CommandButton1_Click()
Dim rng As Range
Set rng = Sheet1.Columns(1).Find(Sheet2.[a1],  ...

版主你好，还想请教你一下：
我想添加一下弹出的对话框的功能，如下图，
1、我想自定一下对话框的标题栏
2、有没有可能在对话框中有一个可以编辑的文本框？文本框的内容就是sheet2的A1单元格的内容，而且这个文本框可以编辑，当跳出的内容自己认为不正确或者想修改时可以录入修改再添加的sheet1的A列
3、对话框可以添加一个取消按钮，用于不执行添加动作吗？


谢谢！

twj007

朱荣兴 发表于 2018-11-22 12:29
可是可以，就是有点麻烦你了

那麻烦你可以帮忙弄一下吗？我是VBA小白，不很懂怎么弄。
谢谢你了！

twj007

朱荣兴 发表于 2018-11-22 15:17
Private Sub CommandButton1_Click()
Dim rng As Range
Set rng = Sheet1.Columns(1).Find(Sheet2.[a1],  ...

谢谢高手帮忙！不胜感激！