[已解决]inputbox 输入到指定单元格 如何遍历其他表

Yunyun123

Dim sht As Worksheet
按你的修改，我的没有报错。

Dim MyRange As String
Dim MyCon As String

MyRange = "J18"
MyCon = InputBox("Input the content:")
For Each sht In Worksheets
         If sht.Name <> "汇总" Then
                 If sht.Name <> "模板" Then

sht.Range(MyRange) = MyCon
End If
End If
Next