复制VBA时删除空白单元格和结构化数据

Question

>我目前正在做一个项目，我需要在一个工作簿中复制目标范围并将其粘贴到另一个工作簿中，省略所有空白单元格(有很多(。

到目前为止，我已经设法将它们全部粘贴到彼此相邻的一行中，但我还没有设法适当地构建它。

For Each c In rngSourceRange.SpecialCells(xlCellTypeVisible)
If Len(c) <> 0 Then
rngDestination = c.Value
Set rngDestination = rngDestination.Offset(0, 1)
End If
Next c
Application.CutCopyMode = False

格式应如此。前 19 个单元格应该彼此相邻，然后它应该向下移动一行，返回到第一列并列出接下来的 19 个条目，依此类推，直到我全部没有单元格要复制。现在我试图包含另一个 for 循环，但它产生了一个非常无用的结果。

For Each c In rngSourceRange.SpecialCells(xlCellTypeVisible)
If Len(c) <> 0 Then
For lcol = 1 To 19
wkbCrntWorkBook.Sheets("Tabelle1").Cells(lrow, lcol).Value = c.Value
lrow = lrow + 1
Next lcol
End If
Next c
Application.CutCopyMode = False

请帮助我正确构建此数据集。如果这有任何帮助，我可以显示我的其余代码。

Answer 1

在第一个代码中，在此语句之后：

Set rngDestination = rngDestination.Offset(0, 1)

尝试添加以下语句：

If rngDestination.Column > 19 Then _
Set rngDestination = rngDestination.EntireRow.Offset(1).Cells(1)