我正在嘗試撰寫一個宏，當它看到“Test”這個詞時創建一個新行，但我在測驗之后還有其他字符，我希望它在添加新行時保留。例如，如果我有測驗 1234 和測驗 2345，我希望它顯示為測驗 1234（新行）QA 和測驗 2345（新行）QA。我使用了通配符“*”，但它不保留原始文本，因此我不確定如何在代碼中保留原始文本。有任何想法嗎？
uj5u.com熱心網友回復：
只需測驗是否k在單元格中。無需使用它在單元格內容的末尾添加文本：
Dim k As String
k = "test"
If InStr(Range("B2").Value, k) > 0 Then
Range("B2").Value = Range("B2").Value & Chr$(10) & "QA"
End If
uj5u.com熱心網友回復：
.............輸入.............
測驗 1234 測驗 2345
.............輸出.............
測驗1234
質量保證
測驗2345
質量保證
....... 宏......
Sub xyz()
txt = Range("B2")
Range("B2").Clear
For i = 0 To UBound(Split(txt, " "))
Range("B2") = Range("B2") & Split(txt, " ")(i)
ins = i 1
If ins Mod 2 = 0 Then Range("B2") = Range("B2") & Chr(10) & "QA" & Chr(10)
Next i
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/372341.html