用於根據單元格值查找和刪除列的宏

Question

我在Excel工作簿中有兩張紙。 我想要一個VBA代碼在Sheet2中搜索單元格J19的內容，並在Sheet1中刪除具有匹配單元格的列。 我一直在Google各處搜索以查找一些VBA代碼，但尚未找到任何有效的方法。

這里有人知道怎么做嗎？ 我在VBA中的經驗為零。

Answer 1

您可以嘗試使用此代碼執行此類任務。

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中學習它。 希望這可以幫助。