Excel的VBA selection.replace和列如果换成把文本替换行

Question

我有这样一些宏：

Columns("F:M").Select 
Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _ 
    ReplaceFormat:=False 

但是我希望把当前的日期（或者甚至只是文本字符串）放置在发生替换的行的单元格A中。

Answer 1

我想你会需要改变你的替换为查找和替换。例如：

Dim c As Range 
Columns("F:M").Select 
Set c = Selection.Find(What:=",", LookAt:=xlPart, _ 
    SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False) 
If Not c Is Nothing Then 
    Do 
     c.Replace What:=",", Replacement:="", LookAt:=xlPart, _ 
      SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _ 
      ReplaceFormat:=False 
     Cells(c.Row, 1).Value = Date 
     Set c = Selection.FindNext(c) 
    Loop While Not c Is Nothing 
End If