VBA批量替换函数公式快表软件

VBA批量替换函数公式

显示全部楼层倒序浏览发表日期 2024-11-04 15:02:06 89次阅读 0次回复

阅读排行

2024-11-4 15:02:06

显示全部楼层

本示例是将表格函数公式中Column(当前单元格地址) 替换为Column()

Sub UpdateFormulas()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("产销统计") ' 修改为你的工作表名
Dim rng As Range
Dim cell As Range
' 假设我们要更新的是括号范围内的公式
Set rng = ws.Range("D5:AE69")
' 遍历范围内的每个单元格
For Each cell In rng
If cell.HasFormula Then
' 检查单元格是否包含公式
If InStr(cell.Formula, "COLUMN") > 0 Then
' 如果包含旧的函数字符串，则替换为新的公式
cell.Formula = Replace(cell.Formula, "COLUMN(" & Replace(cell.Address, "$", "") & ")", "COLUMN()")
End If
End If
Next cell
End Sub

复制代码

发布主题

返回列表

快表软件是国内较早研究表格类软件开发平台的团队之一，迄今已有十多年的行业经验.致力于为企事业单位提供实用可靠的数字化平台。