[英]Excel Vba Macro to Delete Row or Column Based on Cell Value and Column Name
[英]Macro to find and delete column based on cell value
我在Excel工作簿中有两张纸。 我想要一个VBA代码在Sheet2中搜索单元格J19的内容,并在Sheet1中删除具有匹配单元格的列。 我一直在Google各处搜索以查找一些VBA代码,但尚未找到任何有效的方法。
这里有人知道怎么做吗? 我在VBA中的经验为零。
您可以尝试使用此代码执行此类任务。
Sub FindMatchAndThenDeleteColumn()
FindContent = Worksheets("Sheet2").Range("J19")
For Each Cell In Worksheets("Sheet1").UsedRange.Cells
If Cell.Value = FindContent Then Columns(Cell.Column).Delete
Next
End Sub
将上面的代码放入工作簿的模块中 。 注意,在这里随机选择FindContent
和Cell
,您可以使用任何名称。 我用
For Each Cell In Worksheets("Sheet1").UsedRange.Cells
遍历Sheet1中使用的每个单元格。 它将检查从单元格A1到最后一个具有数据的单元格(最右下的单元格)范围内的所有内容。 如果单元格J19的内容是文本,则可以将变量FindContent
声明为String
类型,即Dim FindContent As String
。 如果是数字,则可以将其声明为Long
类型或Single
类型或适合其内容的任何数字类型。 在这里,我没有声明它,这意味着它默认为Variant
类型。 而且,由于您是VBA的初学者,因此可以从Excel Easy中学习它。 希望这可以帮助。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.