GBKEE

¦^´_ 1# mhl9mhl9
²¤Æ¤@¤U

1. Option Explicit
   
2. Sub Ex()
   
3.      Dim E As Range
   
4.      Static A As Boolean
   
5.      For Each E In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
   
6.         E = IIf(A, UCase(E), LCase(E))
   
7.      Next
   
8.      A = Not A
   
9. End Sub

½Æ»s¥N½X