­ã´£³¡ªL

Sub Macro1()
Dim xR As Range
For Each xR In Cells.SpecialCells(xlCellTypeAllValidation)
¡@¡@xR.Validation.ShowError = False
Next
End Sub

­ã´£³¡ªL

¦^´_ 4# starry1314

¦X¨Ö®æ¡A¥ý¸Ñ°£¦X¨Ö¡A¦A´_­ì
Sub Macro1()
Dim xR As Range
On Error Resume Next
For Each xR In Cells.SpecialCells(xlCellTypeAllValidation)
¡@¡@With xR.MergeArea
¡@¡@¡@¡@¡@.UnMerge
¡@¡@¡@¡@¡@.Item(1).Validation.ShowError = False
¡@¡@¡@¡@¡@.Merge
¡@¡@End With
Next
End Sub

­Y­n«ü©w¿ï¨ú°Ï¡A¥i§ï¦¨¡G
For Each xR In Selection.Cells.SpecialCells(xlCellTypeAllValidation)
¡@
Next