查找列中的特定文本并插入列标题行

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