Question

Excel宏问题（替换字符），不要函数

将A列中出现的大写字母替换成小写，并将A列中出现的所有符号、空格删除。

请高手帮忙写个宏代码，只要宏，不要函数。
最好不要更改整个工作表，因为其它列还有数据及函数。

在网上找了一个大写替换小写的宏，但是运行后其它列的函数都被数字性粘贴了。
以下是网上找的大写替换小写的宏代码：
iRow = Cells.SpecialCells(xlCellTypeLastCell).Row
iCol = Cells.SpecialCells(xlCellTypeLastCell).Column
For i = 1 To iRow
For j = 1 To iCol
Cells(i, j) = LCase(Cells(i, j))
Next
Next

Answer 1

Alt+F11 视图--代码窗口:
字符中间侍空销的亏凯空格算不算？老游？？
比如 AB CD。。。。

sub xxx()
with activesheet
for i=1 to range("A65536"),end(xlup).row
.cells(i,1)=trim(Lcase(cells(i,1)))
next
end sub

追问

语法错误

追答

sub xxx()
with activesheet
for i=1 to range("A65536").end(xlup).row ' .写成逗号了
.cells(i,1)=trim(Lcase(cells(i,1)))
next
end sub

Answer 2

那就只对A列毁乎历处顷局理：
For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
Cells(i, “A”) = LCase(Cells(i, “A”纤搜))
Next

追问

谢谢回答，不过能不能完整点写，我不会编程。
提示NEXT没有FOR

追答

Sub Test()
For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
Cells(i, “A”) = LCase(Cells(i, “A”))
Next
End Sub

Answer 3

VBA里要用next i
提老蔽示错误的自己改改吧
删除符号？负号？！字符串前后还是中间的察茄空格？
要求再败含察写清楚一些