在列中查找特定文本，并使用列标题插入行

Question

我对宏很新。我把三张桌子合二为一。根据第一栏中的值，所有人都需要有不同的标题。

我正在尝试执行以下操作：

希望有人可以帮助我。

由于

Answer 1

这样的事可能会对你有所帮助：

Option Explicit

Sub TestMe()

    If Cells(1, 1) = "Veg" Then
        Rows("1:1").Insert Shift:=xlDown

        Cells(1, 1) = "Col1"
        Cells(1, 2) = "Col2"
        Cells(1, 3) = "Col3"

    End If

End Sub