Excel宏：连接字符串与单元格值使用宏

Question

我正在使用Excel 2010.

我有以下宏用于连接字符串与单元格值。

Sub Mac1() 
Dim cell As Range 
For Each cell In Range("D3", Range("D65536").End(xlUp)) 
    If cell.Value = "" Then 
     cell.Value = "" 
    Else 
     cell.Value = cell.Value & " Day" 
    End If 
Next 
End Sub 

注意：让每一次串Day附加每个当我运行宏。

预期的结果应该是如果单元格为空，那么没有字符串与单元格连接，如果单元格不是空的，那么它应该只在一次连接字符串Day与单元格值结尾。

Answer 1

尝试作为一个嵌套如果检查字符串是否已经在" Day"结束。

Sub Mac1() 
    Dim cell As Range 

    With Worksheets("SHeet1") 'KNOW WHAT WORKSHEET YOU ARE ON!!!!!! 
     For Each cell In .Range("D3", .Range("D65536").End(xlUp)) 
      If CBool(Len(cell.Value)) Then 
       If Right(LCase(cell.Value), 4) <> " day" Then 
        cell.Value = cell.Value & " Day" 
       End If 
      End If 
     Next cell 
    End With 
End Sub