Sub SmpLcase() Dim I As Integer I = 3 Do Until Cells(I, 3) = "" '将工作表中的“英文 名”列的字母转换为 ...
www.excelpx.com