EXCEL(自定义函数(VBA) )以某一个字或词(字或词:包括数字、字母、中文)为参照,提取它的下一单元
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/29 08:13:12
EXCEL(自定义函数(VBA) )以某一个字或词(字或词:包括数字、字母、中文)为参照,提取它的下一单元
要求:采用自定义函数(VBA)
公式提取的内容适应(数字、字母、中文)
要求:采用自定义函数(VBA)
公式提取的内容适应(数字、字母、中文)
Sub kljlk()
Dim i&, aa$, d As Object
Set d = CreateObject("scripting.dictionary")
aa = Application.InputBox("要查询的字符", "请输入", "小明", , , , , 2)
For i = 1 To [a65536].End(3).Row
If Cells(i, 1) = aa Then d(Cells(i + 1, 1).Value) = ""
Next
Range("B1").Resize(d.Count, 1) = Application.Transpose(d.keys)
Set d = Nothing
End Sub
再问: 假如我要查找0,1,2,3,4,5,6,7,8,9,10,11这些字是不是在括号里修改就行了。 修改如下面哪样吗("0", "1", "2", "3", "4", "5", "6", "7", "8", "9","10", "11", , , , , 2) 另外假如我要找小华下一单元的数据,哪又如何修改 另外在B列输入什么公式才显示结果
再答: 给你的是宏,不是自定义函数
Dim i&, aa$, d As Object
Set d = CreateObject("scripting.dictionary")
aa = Application.InputBox("要查询的字符", "请输入", "小明", , , , , 2)
For i = 1 To [a65536].End(3).Row
If Cells(i, 1) = aa Then d(Cells(i + 1, 1).Value) = ""
Next
Range("B1").Resize(d.Count, 1) = Application.Transpose(d.keys)
Set d = Nothing
End Sub
再问: 假如我要查找0,1,2,3,4,5,6,7,8,9,10,11这些字是不是在括号里修改就行了。 修改如下面哪样吗("0", "1", "2", "3", "4", "5", "6", "7", "8", "9","10", "11", , , , , 2) 另外假如我要找小华下一单元的数据,哪又如何修改 另外在B列输入什么公式才显示结果
再答: 给你的是宏,不是自定义函数
EXCEL(自定义函数(VBA) )以某一个字或词(字或词:包括数字、字母、中文)为参照,提取它的下一单元
我在EXCEL的VBA里面用IS类函数(譬如ISNA、ISNUMBER等函数)为什么说“子过程或函数未定义”?
excel中VBA函数 log10()
excel函数if不同的几个数字用相同的一个字或词来表示
以“我们身边的节能环保”为话题、写一篇说明文,要求围绕某一个事物一件事情或一种现象进行说明(600字)
VBA 自定义函数问题
如何用vba在excel中自定义一个函数
excel 如何只提取某列单元格内的字母和数字,不提取汉字?(每一行字母、数字的个数都不相同)
怎样把一篇txt文档里某一个字或词更换成另外的某一个词?比如说把文档里所有的“一”改成“二”?
excel函数 提取数字
如何利用excel中vba自定义函数产生一组指定区间波动的随机数,有合格率限制
哪种特殊符号(或字母,或数字)表示“爱”这个字?