Excel総合相談所 136

[0950 名無しさん＠そうだ選挙にいこう 2019/10/04(金) 08:15:58.98]

>>948
Function 違うのがある()
　　違うのがある = False
　　For Each c In Range("A1:E10")
　　　　If c.Value <> "" Then x = c.Value: Exit For
　　Next
　　For Each c In Range("A1:E10")
　　　　If c.Value <> "" And c.Value <> x Then 違うのがある = True: Exit For
　　Next
End Function