Q：存档后如何清除单元格？

Question

我已经整理了一个宏，允许我将数据从一个 sheet 存档到另一个，但是我无法在之后清除信息。第一列包含我不想清除的数字，现在它只清除B列中的数据。

如果有人能看一看，我将不胜感激。

'Sub archive()
Dim i, lastrow
Dim mytext As String
lastrow = Sheets("Rooms").Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To lastrow
mytext = Sheets("Rooms").Cells(i, "F").Text
If InStr(mytext, "yes") Then
Sheets("Rooms").Cells(i, "A").EntireRow.Copy Destination:=Sheets("Archive").Range("A" & Rows.Count).End(xlUp).Offset(1)
Sheets("Rooms").Cells(i, "B").Clear
End If
Next i
End Sub'

Answer 1

我已将 B 列中关联行的单元格扩展到同一行中包含任何值的最后一个单元格。

Sub archive()
    Dim i, lastrow
    Dim mytext As String

    With WorkSheets("Rooms")
        lastrow = .Range("A" & Rows.Count).End(xlUp).Row
        For i = 1 To lastrow
            mytext = .Cells(i, "F").Text
            If InStr(1, mytext, "yes", vbTextCompare) Then
                .Cells(i, "A").EntireRow.Copy Destination:=Sheets("Archive").Range("A" & Rows.Count).End(xlUp).Offset(1)
                .Range(.Cells(i, "B"), .Cells(i, Columns.Count).End(xlToLeft)).Clear
            End If
        Next i
    End With
End Sub

此外，我使用 With ... End With statement 将 WorkSheets("Rooms") 与其所有单元格相关联，以避免重复引用工作表。

Range.Clear command scrubs all values and formatting. If you just want the values to be removed, you may want to switch to Range.ClearContents method.

Q：存档后如何清除单元格？

Q: How to clear cells after archiving?

excel

vba

archiving