|
发表于 2013-11-14 10:13
|
显示全部楼层
本楼为最佳答案
返回一个 Range 对象,它代表一个单元格或单元格区域。
语法
表达式.Range(Cell1, Cell2)
区域可以表示为Range(左上角区域, 右下角区域),即最多只能是两个参数,不可以更多。
Sub 清除b及c和d列中空白区域及括弧转换()
Dim r, i, j
r = Range("A" & Rows.Count).End(xlUp).Row
' With Range("b2:b" & iRow, "c2:c" & iRow, "d2:d" & iRow)
' .Replace "(", "("
' .Replace ")", ")"
' .Replace "~*", "×"
' .Replace " ", ""
' End With
For i = 2 To r
For j = 2 To 4
With Cells(i, j)
.Replace "(", "("
.Replace ")", ")"
.Replace "~*", "×"
.Replace " ", ""
End With
Next j
Next
End Sub
|
|