使用 SpecialCells 复制前 x 行可见数据添加到新工作表并从原始表中删除每个复制的行

Question

我需要将下图中的前 X 行可见数据复制到新工作表中，并删除已复制的每一行（而不仅仅是清除数据）。

例如，在下图中，假设我只需要过滤第 7 列后的前 7 个可见数据行。我需要将前 7 个可见行粘贴到 Fulfillment 表中，并且我需要将这些行完全删除（未清除），因为我不能留下空白行。这可能不是 7 个，而是数百个中的一个数字，需要为每个需要履行的订单重复数十次。

除了遍历整个表直到到达第 n 个可见行之外，还有其他解决方案吗？这段代码需要用数千部手机完成数百个订单，所以它不会很慢。

如果有代码只是说偏移到第 22 个可见行之类的就完美了。

我没有代码，因为此时这纯粹是概念性的。

---

试过这个：

msgbox Range("A362").Offset(6,0).SpecialCells(xlCellTypeVisible).Row 

该代码应该返回 432，但它返回的是 1。

Answer 1

实际上，没有可使用的代码...您所要求的应该是这样的：

LastRow = Sheets(2).Range("A1").SpecialCells(xlCellTypeLastCell).Row
MsgBox LastRow
For i = 1 To 7
    Sheets(2).Range("A1").Offset(LastRow + i - 1, 0). _
         SpecialCells(xlCellTypeVisible).EntireRow.Value = _
         Sheets(1).Range("A1").Offset(i, 0). _
         SpecialCells(xlCellTypeVisible).EntireRow.Value
Next
For i = 8 To 2 Step -1
    Sheets(1).Range("A1").Offset(i + 1, 0).SpecialCells(xlCellTypeVisible).EntireRow. _
                                                               ClearContents
Next
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

那个人正在考虑只有两张纸，数据具有与您在屏幕截图中发送的相同设置。

此代码将复制工作表 (1) 上的前 7 行，它们将被复制到工作表 2，复制的行将被删除。

希望对你有帮助