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

尝试将其作为嵌套的If来检查字符串是否已在" 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