|
本帖最后由 心灵有约 于 2014-9-3 14:09 编辑
我想对随意指定的单元格区域,比如:A1:A6 进行vba操作,但事先又不能指定为A1:A6,如何用vba语句描述不确定单元格区域。谢谢
现有语句如下:
Sub 清除空白转换括号()
Dim iRow&
iRow = Range("a" & Rows.Count).End(xlUp).Row
With Range("a1:z" & iRow)
.Replace "(", "("
.Replace ")", ")"
.Replace "~*", "×"
.Replace " ", ""
End With
End Sub
以上语句指定了变动区域Range("a1:z" & iRow),我的意思是事先不再指定区域,哪怕是变动区域,当用鼠标选定区域后运行宏语句即可实现上述指定的清除或置换目的
Sub 清除空白转换括号()
With Selection
.Replace "(", "("
.Replace ")", ")"
.Replace "~*", "×"
.Replace " ", ""
End With
End Sub
|
|