excel中怎么在每一行上面添加两行标题行

VBA

按Alt+F11打开VBA编辑器，按Ctrl+R打开工程资源管理器（如已打开则略过），右键单击当前工作簿，选择“插入(N)”、“模块(M)”,然后在右侧代码编辑区里把下面的代码贴进去，按F5执行即可 Sub InsertTitle() Line = 4 While Cells(Line, 1) Range(Rows(1), Rows(2)).Copy Rows(Line).Insert xlDown Line = Line + 3 Wend End Sub

授人以鱼，不如授人以渔