我已经创建了一个用户表单的数据输入和所有条目显示在一个列表框，即时通讯仍然是新的，所以与我裸露。当我从列表中选择一行并单击删除时，我希望它将值替换为“XXX”而不是删除行，这样我就可以保持我所拥有的序列号的顺序，因为我拥有的功能是计算非空单元格，所以当我删除时，它会根据非空单元格调整序列号。
我怎么能在这个里面使用replace函数呢

ThisWorkbook.Sheets("NEWROUND").Rows(selected_List + 1).Delete

以便它可以替换为“XXX”？
删除按钮的代码如下：

Private Sub ButtonDelete_Click()

If selected_List = 0 Then

MsgBox "No Delegation is selected.", vbOKOnly + vbInformation, "Delete"
Exit Sub
End If

Dim i As VbMsgBoxResult
i = MsgBox("Do you want to delete the selected Delegation?", vbYesNo + vbQuestion, "Confirmation")
    
If i = vbNo Then Exit Sub

ThisWorkbook.Sheets("NEWROUND").Rows(selected_List + 1).Delete

Call RESET
    
MsgBox "Selected Delegation is Deleted.", vbOKOnly + vbInformation, "Deleted"
     

End Sub

救命啊！！
我怎么能在这个里面使用replace函数呢

ThisWorkbook.Sheets("NEWROUND").Rows(selected_List + 1).Delete

以便它可以替换为“XXX”？