如何复制某些单元格包含文本的行，并将它们粘贴到另一个位置？

【问题标题】：How do I copy the rows of which certain cells contain text, and paste them to another location?如何复制某些单元格包含文本的行，并将它们粘贴到另一个位置？
【发布时间】：2019-08-03 03:05:34
【问题描述】：

J 列中的一些单元格包含文本，而其他单元格为空。我想 1. 找到 J 列包含文本的所有行 2. 复制这些行 3. 将它们粘贴到其他地方（与初始表的顺序相同）

Sub org1()

Dim a As Range
For Each a In Range("j2:j500")
    If Not a.Value = "" Then
       a.EntireRow.Copy
       a.Offset(100, 0).Insert
    End If
Next a

End Sub

错误

【问题讨论】：

只需过滤掉空白，然后复制/粘贴可见单元格。

标签： excel vba

【解决方案1】：

没有必要做这样的结构。只需过滤除空白单元格之外的列，然后将过滤后的列复制到您想要的任何位置。如果您不知道如何在vba中进行过滤，请录制一个宏并执行该过程。

如果您不想在此之后过滤列，只需在之后使用 Sheets("YourSheet").AutoFilterMode = False 删除所有过滤器

【讨论】：

我不能这样做，因为在带有文本的单元格旁边的单元格上方的单元格中有数据。例如，如果 J2 有内容，则 E1 有一个值，但 J1 将为空，如果我使用过滤器，则不会显示 E2