具體代碼如下：

　　'將A列轉字母全部轉換成小寫

　　Sub test1() '設置TEST為過程的名稱

　　Dim x As Integer '聲明X為整數變量

　　For x = 1 To Range("A65536").End(xlUp).Row '設置X的范圍為1到A列最后空白單元格的行數

　　Range("A" & x) = LCase(Range("A" & x)) '附值單元格Ax的格式全部轉換為小寫,如果是UCase,則轉換成大寫

　　Next x '循環X

　　End Sub '結束過程

　　假設源數據在A列，所以上面代碼的range A。具體應用，自己進行簡單修改了。

　　此內容屬于進階，一般的童鞋靈活運用upper ，lower這幾個函數就行了