[英]Excel Macro : Concatenate string with cell value using macro
我正在使用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
,單元格值最后。
嘗試將其作為嵌套的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
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.