Excelmacros：使用macros连接string与单元格值

我正在使用Excel 2010。

我有以下用于连接string与单元格值的macros。

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 

注意 ：获取stringDay添加每当我运行macros时。

预期的结果应该是如果单元格为空，那么没有string与单元格连接，如果单元格不是空的，那么它应该只在一个时间连接stringDay和最后的单元格值。

Answer 1

尝试是嵌套的如果检查string是否已经以" 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