Question

我正在尝试创建一个比较文件脚本，该脚本将检查文件1上某个不在文件2上的某个ticketID，反之亦然。如果在文件中找不到该比较，则将整行添加到工作表中。我将数据分开，并且文本是第一个数据块的描述（file1中的ID不在file2中）。

我附上了当前输出结果的图像（我删除了相关数据，但数据是浅灰色线条）。 我将我的代码订购到我要插入第二次比较的描述文本的位置。所以我在第一个比较循环后检查最后一行。

Sheets("Sheet3").Select
LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1
ActiveSheet.Cells(LastRow, "A").Value = "here"
ActiveSheet.Cells(LastRow, "A").Select

我的问题是我不知道如何抓住这一系列的细胞。在我当前的输出中，我想从（A15：P16）中抓取，所以两列一直到列P.我总是知道它是行A和列P，但我永远不知道行号。这是因为当我比较文件时，我不知道我将有多少差异，因此在sheet3中使用了多少行。一旦我选择或可用此范围，我想在第二个数据块中输入我的描述文本，并能够合并和缩进并自定义它，以便我可以将它放在我想要的位置。然后我将进行第二次比较并插入file1中找不到的文件2中的数据。所以主要的问题是我不知道如何抓住我想要的那些细胞系列，因为我不知道它准确的行是什么。

Answer 1

要选择要求的范围，我会使用：

With ActiveSheet
    .Range("A4:P" & .cells(rows.count,1).end(xlup).row).Select
End with

我必须建议不要选择此范围。我建议直接在范围内执行任何必要的操作。

With ActiveSheet
    .Range("A4:P" & .cells(rows.count,1).end(xlup).row).Merge
End with

在最后使用的行下面添加数据并合并单元格

1 个答案: