如何删除Excel工作表中单元格中的附加值

Question

在左侧的图片中，它是输入，用户按下按钮后，输出将出现在右侧。 我的问题是在用户按下按钮之后，结果出现了。我希望左侧的输入数据消失，以便用户可以一次又一次地重新输入数据

我需要在代码中添加些什么，以便它给出我想要的结果。 这是我的代码：

Private Sub CommandButton1_Click()
Dim i As Long, j As Long
Dim wks As Worksheet
Set wks = Worksheets("Sheet1")

Set AddNew = wks.Range("M65356").End(xlUp).Offset(5, 0)

For i = 1 To 15
    For j = 1 To 7
        AddNew.Cells(i, j) = wks.Range("B1").Cells(i, j)
    Next j
Next i




End Sub

Answer 1

只需添加：

wks.Range("B1").Cells(i, j) = ""

在您添加新行之后

Answer 2

您当前的代码跳过了最后一个输入行（15）。但也许可以考虑不使用循环而是一次性传输数据：

Private Sub CommandButton1_Click()

Dim wks As Worksheet: Set wks = Worksheets("Sheet1")
Dim AddNew As Range: Set AddNew = wks.Range("M65356").End(xlUp).Offset(5, 0)

AddNew.Resize(16, 7).Value = wks.Range("B1:H16").Value
wks.Range("B1:H16").Value = ""

End Sub