将过滤的单元格复制到另一张纸上

Question

我过滤了四行信息。 （月份，名称，服务，单位）我按名称和月份过滤信息。 （取决于所需的信息）我整理了以下内容，以尝试获取已过滤数据的第一行并将其放在另一张纸上。

Sub Mine()
   Dim sht1 As Worksheet
   Dim sht2 As Worksheet
   Dim lRow As Long

      Set sht1 = ThisWorkbook.Sheets("Export")
      Set sht2 = ThisWorkbook.Sheets("DB1")

      lRow = sht1.Cells(Rows.Count, "A").End(xlUp).Row + 1

      sht1.Range("b" & lRow) = sht2.Range("A2" & Cells.SpecialCells(xlCellTypeLastCell).Row).SpecialCells(xlCellTypeVisible) 'Month
      sht1.Range("a" & lRow) = sht2.Range("E2" & Cells.SpecialCells(xlCellTypeLastCell).Row).SpecialCells(xlCellTypeVisible) 'Client Name
      sht1.Range("c" & lRow) = sht2.Range("C2" & Cells.SpecialCells(xlCellTypeLastCell).Row).SpecialCells(xlCellTypeVisible) 'Service
      sht1.Range("d" & lRow) = sht2.Range("H1" & Cells.SpecialCells(xlCellTypeLastCell).Row).SpecialCells(xlCellTypeVisible) 'Units

  End Sub

这不会出错，只是不会将任何内容复制到“导出”工作表中。 我可以将任何内容从一张纸复制到另一张纸的唯一方法是取出特殊单元。 如下...

Sub Mine()
 Dim sht1 As Worksheet
 Dim sht2 As Worksheet
 Dim lRow As Long

     Set sht1 = ThisWorkbook.Sheets("Export")
     Set sht2 = ThisWorkbook.Sheets("DB1")

     lRow = sht1.Cells(Rows.Count, "A").End(xlUp).Row + 1

     sht1.Range("b" & lRow) = sht2.Range("A2") 'Month
     sht1.Range("a" & lRow) = sht2.Range("E2") 'Client Name
     sht1.Range("c" & lRow) = sht2.Range("C2") 'Service
     sht1.Range("d" & lRow) = sht2.Range("H1") 'Units

End Sub

但是如前所述，它仅复制第一行，无论是否过滤。 我的目标是获取过滤后的“ DB1”顶行并将其复制到“导出”中的已排序单元格中。 任何帮助将不胜感激。

-JGr3g

Answer 1

好的，所以我认为您的代码没有按照您的想法做。 让我们分开

sht2.Range("A2" & Cells.SpecialCells(xlCellTypeLastCell).Row).SpecialCells(xlCellTypeVisible)

您正在调用sht2.Range()并将其传递给字符串。 该字符串是"A2"和Cells.SpecialCells(xlCellTypeLastCell).Row).SpecialCells(xlCellTypeVisible)的串联。

什么是Cells.SpecialCells(xlCellTypeLastCell).Row).SpecialCells(xlCellTypeVisible) ？ 确切地说，“ Cells是一个范围，表示活动电子表格ThisWorkbook.ActiveSheet.Cells中的每个单元格。 然后，您要查询SpecialCells(xlCellTypeLastCell)并使其成为行？ sht1和sht2怎么了？ 您没有使用它们，您正在使用活动表吗？

因此，如果活动工作表的最后一个单元格在第50行中，则您要求输入"A2" & 50 ，这将得到"A250" ，由于最后使用的行是50，因此它将为空白...

首先，我建议您避免使用字符串串联查找单元格。 没有任何"A" & numericVariable东西。 使用更直接的东西，例如Cells(numericVariable, 1) 。 过多的字符串操作可能会伤害您。 cells属性可以将行和列作为参数。

您的归档范围是表/列表对象还是只是带有自动筛选的普通旧范围？ 如果是列表对象，则获取列表对象，获取其DataBodyRange，在其上使用.SpecialCells(xlCellTypeVisible) ，然后获取结果范围的第一行。

同样，如果它是自动筛选的范围，则获取目标数据范围，即整个数据范围。 一旦有了它，抓住可见的单元格，然后获得第一行。

编辑：未经测试的例子

set targetRow = ws.Range(ws.Cells(2, 1), ws.Cells(lRow, 5)).SpecialCells(xlCellTypeVisible).Row(1)
targetSheet.Range("A2") = targetRow.Cells(1,2)

好的，这是做什么的？ 我正在工作表变量ws并得到一个范围。 .Range(ws.Cells(2, 1), ws.Cells(lRow, 5)) 。 该范围来自第二行第一列，又称"A2" 。 它转到第5列lRow中包含的行号，又名"E" & lRow 。

从那里只获得可见的单元格.SpecialCells(xlCellTypeVisible)然后获得选择中第一个区域的第一行.Row(1)

一旦有了第一行，就可以使用.Cells或.Column从中获得不同的列。