EXCEL求助

2025-06-21 21:26:19

推荐回答（2个）

回答1：

在VBA编辑器中，左边选thisworkbook，右边选workbook，beforesave，然后贴入

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 flag = Sheets(1).Range("A1")
 For Each sht In Sheets
  If sht.Range("A1") <> flag Then
     MsgBox sht.Name & "的A1值不一致!"
  End If
 Next
End Sub

回答2：

这样简单的功能，自己看一下不就行了吗，不需要编程的啊，筛选一下，A1都相等，就只有一个值了