当前位置：首页 - 正文

EXL表格中的命令问题。

发布网友发布时间：2024-10-20 10:16

共4个回答

热心网友时间：2024-11-15 12:36

在模块中插入如下VBA程序，运行后可批量设置公式：

Sub 批量写公式()
Dim ws As Worksheet
For Each ws In Worksheets
If Left(ws.Name, 1) = "表" And IsNumeric(Mid(ws.Name, 2)) Then
If Val(Mid(ws.Name, 2)) > 1 Then
ws.Range("A2").Formula = "=表" & CStr(Val(Mid(ws.Name, 2)) - 1) & "!D2"
End If
End If
Next
End Sub

热心网友时间：2024-11-15 12:36

Sub 表格()
Dim Mc(1 To 300)
'查找所有工作表的名称
For i = 1 To Worksheets.Count
Mc(i) = Sheets(i).Name
Next

'写入公式
For i = 2 To Worksheets.Count
Sheets(Mc(i)).Range("A2") = "='" & Mc(i - 1) & "'!D2"
Next

End Sub

热心网友时间：2024-11-15 12:37

应该是
=表2!D2

你多写了引号

热心网友时间：2024-11-15 12:37

啥命令？把问题写清楚点嘛

感觉你的表名应该不会这么规律，那建议写完了用“替换”处理一下吧

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

EXL表格中的命令问题。

最新推荐

猜你喜欢

热门推荐