首页 文章

根据单元格值有条理地清除行中单元格范围的内容

提问于
浏览
0

我有一个带有两张纸的Excel文件:Sheet1和Sheet2 . 工作表1具有商店信息,而工作表2具有商店信息的产品数量

在工作表1中,范围“A1:A5”列出了5个商店名称,商店A到商店E,而工作表1中的范围“B1:B5”是一个下拉框,允许用户从以下选项中选择:“打开”,“关闭“,或”“ .

在表2中,有一个表格列出了按商店列出的产品数量 . 就像是:

enter image description here

我正在寻找一种方法来清除Sheet2中的范围B:F的内容当Sheet1中的相应存储未设置为“打开” .

目前,我正在将Sheet B中的Sheet B中的值从Sheet2链接到Column G,并在Sheet2中将代码设置为以下内容:

Private Sub Worksheet_Activate() 
If Range("G2") <> "Open" Then
Range("B2:F2").ClearContents
End If

如何在循环中执行此操作而不是分别复制此代码五次?

1 回答

  • 0

    像这样的东西?

    For i = 2 To 6 'This is the starting row (2) to the ending row (6)
        If Range("G" & i) <> "Open" Then 'We use i to dynamically build the range as a string
            Range("B" & i & ":F" & i).ClearContents
        End If
    Next i
    

相关问题