在列中重复宏

编程问答 2022-05-23

问题描述

如果有人能帮助我，我将不胜感激！

我有一个带有标题的 Excel 工作表，每次使用“sql Server 导入和导出数据”时我都需要自定义 - 必须为前 10 行中的每一列填充数据，如果有的话......我做什么 -

我从 A 列开始，找到列中的第一个非空单元格，然后我剪切整行并将复制的单元格插入第二行（波纹管标题）这我必须对每一列重复（cca 20 列） ，有些列可能是空的，然后什么也不会发生。

我尝试编写这个宏，它适用于 A 列，但我不知道如何简化它，如果我需要对每一列重复...

Sub Import()


With Columns("A").Find(what:="*",after:=.Cells(1,1),LookIn:=xlValues).activate
 End With

ActiveCell.EntireRow.Select
Selection.cut
Rows("2:2").Select
Selection.Insert Shift:=xlDown


End Sub

非常感谢大家的帮助 哈娜

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

cutimportimportimportinsertinsertrepeatrepeatrowrow