UC知道excel VB求助
来源：百度知道 编辑：UC知道 时间：2024/05/29 19:11:51
我的excel工作簿中有2个sheet，一个名为“邮箱”，另一个为“客户”。
我的问题是：
我想在“邮箱”中设计一个vb的命令，当我点一个名为“更新”按钮控件后，可以把“客户”中的所有邮件地址都罗列到“邮箱”的A列，并且从A2单元格开始，我应该如何编辑，请告之详细操作步骤，谢谢！
“客户”中，邮件地址在F列，我希望罗列在“邮箱”中的A列，并且从A2开始！
我希望用vb，这样不会因为数据过多而变慢。每次，点“更新”控件，就会把后来出现在“客户”中的罗列出来。
我的问题是：
我想在“邮箱”中设计一个vb的命令，当我点一个名为“更新”按钮控件后，可以把“客户”中的所有邮件地址都罗列到“邮箱”的A列，并且从A2单元格开始，我应该如何编辑，请告之详细操作步骤，谢谢！
“客户”中，邮件地址在F列，我希望罗列在“邮箱”中的A列，并且从A2开始！
我希望用vb，这样不会因为数据过多而变慢。每次，点“更新”控件，就会把后来出现在“客户”中的罗列出来。
在你的按钮上加载这个宏.
Sub mail()
A = WorksheetFunction.CountA(Range("客户!f:f"))
Sheets("邮箱").Select
B = WorksheetFunction.CountA(Range("A2:A65536"))
Range("a2").Offset(B, 0).Select
For X = 1 To A
If WorksheetFunction.CountIf(Range(Cells(2, 1), Cells(Selection.Row - 1, 1)), Range("客户!F" & X)) = 0 Then
Selection.Value = Range("客户!F" & X)
Selection.Offset(1, 0).Select
End If
Next
End Sub
“客户”中的邮箱是在同一列？
直接复制粘贴不可以吗？
各表里面的版面是怎样的呢？
直接用函数更简单VLOOKUP，自己看函数说明，很简单
A2=VLOOKUP(B2,客户!A:B,2,)，假设你的客户名称在邮箱工作表的B列
客户”中的邮箱是在同一列？
直接复制粘贴不可以吗？
各表里面的版面是怎样的呢？
直接用函数更简单VLOOKUP，自己看函数说明，很简单
A2=VLOOKUP(B2,客户!A:B,2,)，假设你的客户名称在邮箱工作表的B列