[已解决]用VBA函数下拉表达

q99999

各位老师，请教一个问题，请问用VBA下拉一组函数怎么做呢？我现在需要在单元格上下拉一组函数，=SUBSTITUTE(SUBSTITUTE(sheet1!C3,"无文本",),"No Text",) 下拉到=SUBSTITUTE(Sheet1!C30,"\TEMP_POST\",)，这个如果用VBA是怎么表达呢？谢谢各位帮忙解答！

最佳答案

月排行榜 / 总排行榜

林木水

2022-1-12 10:39

q99999 发表于 2022-1-12 08:36
我用录制宏的方式放在VBA了，您看执行以下就知晓。将录制的方式改变成常规的写法。

在第一个单元格输入自定义函数cese（点击单元格，字符串1，字符串2）跟你输入的函数公式一样，字符串1 代表无文本，字符串2代表No text，下拉就可以了，不用输入那么长公式
看下是不是要这样

1. Function cese(a As Range, b As String, c As String)
   
2. cese = Application.Evaluate("=SUBSTITUTE(SUBSTITUTE(" & a.Address(0, 0) & ",""" & b & """,),""" & c & """,)")
   
3. End Function
   

复制代码

跳转到最佳答案楼层

林木水

能放附件吗？
大致如下,首先假设你当前单元格为A1有上面这个公式=SUBSTITUTE(SUBSTITUTE(sheet1!C3,"无文本",),"No Text",)，需要下拉到A30
代码如下：

1. Sub 下拉填充()
   
2. Sheet1.Range("a1:a30").FillDown
   
3. End Sub
   

复制代码

q99999

林木水 发表于 2022-1-11 14:16
能放附件吗？
大致如下,首先假设你当前单元格为A1有上面这个公式=SUBSTITUTE(SUBSTITUTE(sheet1!C3,"无文 ...

大概就是自动填入预先写好在VBA内的函数，然后指定填入某列并同时下拉 新建 Microsoft Excel 工作表.zip (9.64 KB, 下载次数: 4)

2022-1-11 19:43 上传

点击文件名下载附件

林木水

q99999 发表于 2022-1-11 19:44
大概就是自动填入预先写好在VBA内的函数，然后指定填入某列并同时下拉

没听明白，感觉你像要做个自定义函数。能举个例子吗

q99999

林木水 发表于 2022-1-11 20:02
没听明白，感觉你像要做个自定义函数。能举个例子吗

我用录制宏的方式放在VBA了，您看执行以下就知晓。将录制的方式改变成常规的写法。 新建 Microsoft Excel 工作表.zip (11.71 KB, 下载次数: 4)

2022-1-12 08:36 上传

点击文件名下载附件

林木水

q99999 发表于 2022-1-12 08:36
我用录制宏的方式放在VBA了，您看执行以下就知晓。将录制的方式改变成常规的写法。

在第一个单元格输入自定义函数cese（点击单元格，字符串1，字符串2）跟你输入的函数公式一样，字符串1 代表无文本，字符串2代表No text，下拉就可以了，不用输入那么长公式
看下是不是要这样

1. Function cese(a As Range, b As String, c As String)
   
2. cese = Application.Evaluate("=SUBSTITUTE(SUBSTITUTE(" & a.Address(0, 0) & ",""" & b & """,),""" & c & """,)")
   
3. End Function
   

复制代码

q99999

林木水 发表于 2022-1-12 10:39
在第一个单元格输入自定义函数cese（点击单元格，字符串1，字符串2）跟你输入的函数公式一样，字符串1 代 ...

感谢老师！这种方式也好用

林木水

q99999 发表于 2022-1-12 19:12
感谢老师！这种方式也好用

不客气