☰

如何根据工作表 1 删除工作表 2 中的某一列？

tag-icon • tag-icon microsoft-excel vba microsoft-excel-2016
如何根据工作表 1 删除工作表 2 中的某一列？

我有两张不同的表：“输入”（表 2）和“说明”（表 1）

我想删除“输入”表中与“指令”（Sheet1）的单元格（第 34 行，第 2 列）中的值相对应的整列。

我尝试了以下代码，但它不起作用。我找不到问题所在。

Private Sub CommandButton2_Click()

  mykeyword1 = Worksheets("Instruction").Cells(34, 2).Value
  
  For i = 1 To 20
      If Worksheets("Input").Cells(1, i).Value = mykeyword1 Then
            
      Worksheets("Input").Activate
      Worksheets("Input").Cells(Rows.Count, i).Clear
      
       End If
       
       Next       
End Sub

请帮忙。 在此处输入图片描述

答案1

好的，我刚刚修改了代码，它在这种情况下可以工作

Private Sub CommandButton1_Click()

  mykeyword1 = Worksheets("Instruction").Cells(34, 2).Value
  
  
  For i = 1 To 20
       If Worksheets("Input").Cells(1, i).Value = mykeyword1 Then
      
      
            'Worksheets("Input").Activate
            Worksheets("Input").Columns(i).Clear
      
         End If
       
       Next
            
End Sub

相关内容