插入一行特定数据-VBA宏

-1

我有一个包含大量数据的excel文件。数据按行集划分。每集之后都有一个空白行。我正在寻找一个可以运行所有数据的宏，并且在空白行中的每组数据>之后，它应该如下所示。插入一行特定数据-VBA宏

对于实例

00059803  20-35-32 GBP 02/09/2014 Close 
00005486  20-35-32 GBP 02/09/2014 Close 
00004856  20-35-32 GBP 02/09/2014 Close 

---------------- ------------ ----------------    

04586680  20-45-05 GBP 02/09/2014 Close 
45866485  20-45-05 GBP 02/09/2014 Close 
45806654  20-45-05 GBP 02/09/2014 Close 

----------------- ------------- ---------------    

00485548  20-48-42 GBP 02/09/2014 Close 
04586455  20-48-42 GBP 02/09/2014 Close 
00004458  20-48-42 GBP 02/09/2014 Close 

----------------- ------------- --------------

我希望每个组与宏观数据后插入 “--- ---- -----”。请指教一个宏代码。

来源

2014-09-03 Kaiser

你到目前为止尝试过什么？使用宏录像机开始。如果您遇到困难，我们将很乐意协助您修改您的需求。 – 2014-09-03 13:27:10

尝试像

Sub PutInDashes() 
finalRow = cells(65000,1).end(xlup).row 
for i = 1 to finalRow 
    if isempty(cells(i,1)) then 
    for j = 1 to 5 
     cells(i,j) = "--------" 
    next j 
    end if 
next i 
end sub

虽然它很难看到你想要的列从你贴什么破折号，这段代码将它们放在前5列，那里有一排空白单元格。

来源

2014-09-03 13:27:55

谢谢Matt，只有在表格顶部有几行空行时，您的代码才能正常工作。它在这些行中插入虚线，然后停止。如果在工作表顶部存在空行，那么这根本就行不通。请指教。我希望宏检查整个工作表并在每个数据集下用空行填充空白行。希望我能理解我在找什么。谢谢 – Kaiser 2014-09-03 13:38:03

您的数据集有多少行？ – 2014-09-03 13:42:19

5列中的虚线很好我只想在几个单元格中划破以区分数据。基本上数据是在几百行中，但它是在一组数据中，即10行中的一组数据>然后是三行中的空白行>另一组是5行中的数据>然后是三行中的空行>。我想要的是宏应该分析数据，并且在空白行中的每组数据下应该放置破折号。 – Kaiser 2014-09-03 13:52:24

插入一行特定数据-VBA宏

回答

相关问题