为什么代码出错，求老师指点

王跃峰

Sub 月计细度()
Dim i&, x&
i = Sheets.Count '计算工作表数
For x = 2 To i '建立每个表循环
With Sheets(x)
.Range("AV8").Formula ="=(AV7*E7+'" & Sheets(x - 1).Name & "'! E8"*'" & Sheets(x - 1).Name & "'! AV8)/E8"
Next x
End Sub

王跃峰

6.27工作表AV8原公式应为=(AV7*E7+'6.26'!E8*'6.26'!AV8)/E8

liulang0808

楼主可以录制一段添加公式的宏，然后再根据需求进行调整，注意下引号的使用

ω逆鳞々

*前面多了个引号

ykcbf1100

公式的问题还没有解决啊。

半百

1、多了个双引号，
2、少了 End With

王跃峰

半百 发表于 2023-1-13 13:18
1、多了个双引号，
2、少了 End With

太感谢您了

王跃峰

ykcbf1100 发表于 2023-1-13 13:06
公式的问题还没有解决啊。

老师，太感谢您了

王跃峰

ykcbf1100 发表于 2023-1-13 13:06
公式的问题还没有解决啊。

老师，下面能不能再精简一下
Sub 月计细度()
    Dim i&, x&
    i = Sheets.Count '计算工作表数
    For x = 2 To i '建立每个表循环
        With Sheets(x)
            .[av8] = "=(AV7*E7+'" & Sheets(x - 1).Name & "'!E8*'" & Sheets(x - 1).Name & "'!AV8)/E8"
            .[av11] = "=(AV7*E10+'" & Sheets(x - 1).Name & "'!E11*'" & Sheets(x - 1).Name & "'!AV11)/E11"
            .[av14] = "=(AV7*E13+'" & Sheets(x - 1).Name & "'!E14*'" & Sheets(x - 1).Name & "'!AV14)/E14"
        End With
    Next x
End Sub

王跃峰

王跃峰 发表于 2023-1-13 15:07
老师，下面能不能再精简一下
Sub 月计细度()
    Dim i&, x&

Sub test1()
Sheets(1).Activate
a = InputBox("请输入查找的文本：", "查询", "甲班")
For i = 2 To Sheets.Count Step 1   ' i = 1时i - 1=0 下标越界
For Each cel In Range("a7:a18")

If Sheets(i).Cells(cel.Row, 1) = a Then
Sheets((i - 1)).Cells(cel.Row, 3).Resize(2, 46).Copy Sheets(i).Cells(cel.Row, 3)
      End If
    Next cel
  Next
End Sub