Question

我有一个包含大量数据的excel文件。数据按行集划分。每一组之后都有一个空白行。我正在寻找一个可以遍历所有数据的宏，并且在每组数据之后＆gt;在空行中它应该如下所示。

例如

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

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

我想在宏的每一组数据之后插入“--- ---- -----”。请告知宏代码。

Answer 1

尝试类似

的内容

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行，其中有一行中有空白单元格。

插入一行特定数据 - vba宏

1 个答案: