excel Replace()并迭代单元格

bjg7j2ky  于 2022-11-26  发布在  其他
关注(0)|答案(1)|浏览(138)

我有一个日期格式的列,我想删除句点字符,这样在每个单元格中我都有***ddmmYYYY***,而不是***dd.mm.YYYY***。
我想我必须使用Replace函数来删除带有空字符串“"的”.“字符,但我不知道如何正确使用Replace()函数。
这将是一个“简单”的解决方案:

Sub NewReplace()

Worksheets("Sheet1").Columns("C").Replace(".","")
 
End Sub

我也试着使用foor循环。

Sub Replace()

Dim date_range As Range
Set date_range = Columns(3)

For Each cell In date_range.Cells

cell.Replace(".","")

End Sub

我做错了什么?

nvbavucw

nvbavucw1#

‘iterate to each cell in range

For Each cell In date_range.Cells

    with cell
        ‘change the value of the cell replacing “.” to “”. Instead of “” you can also use vbNullString. With Cstr you convert the value to String, so the result it’s not a number.
        .value= CStr(Replace(.value, ".","")

    end with

End Sub

Cstr是将变量转换为字符串。CInt转换为整数,CBool转换为布尔值,Clng转换为长整数,CDate转换为日期...等等。

相关问题