我試圖在粘貼資料后添加“模型”這個詞,我想我可以& " Model"在粘貼后添加,所以它會是“粘貼你找到的和(添加)模型”,但我得到除錯錯誤:

我沒有使用正確的粘貼型別嗎?
如果需要,這是代碼:
If Model.Rows.Count > 1 Then
Model.Columns(1).SpecialCells(xlCellTypeConstants).Copy
.Cells(n 1, "E").PasteSpecial xlPasteValues & " Model"
Model.Columns(2).SpecialCells(xlCellTypeConstants).Copy
.Cells(n 1, "Q").PasteSpecial xlPasteValues
Else
Model.Columns(1).Copy
.Cells(n 1, "E").PasteSpecial xlPasteValues & " Model"
Model.Columns(2).Copy
.Cells(n 1, "Q").PasteSpecial xlPasteValues
End If
第二次復制/粘貼僅用于數字,無需在此處添加任何內容。
任何幫助將不勝感激!
uj5u.com熱心網友回復:
代替
.Cells(n 1, "E").PasteSpecial xlPasteValues & " Model"
你需要做類似的事情
.Cells(n 1, "E").PasteSpecial xlPasteValues
.Cells(n 1, "E").Value = .Cells(n 1, "E").Value & " Model"
轉載請註明出處,本文鏈接:https://www.uj5u.com/shujuku/364551.html
上一篇:PowerPoint中的VBA只能使用停止和F8步進,當它自己運行時,它會改變形狀1的填充顏色,但不會改變形狀2
下一篇:EXCELVBA中的質數
