复制行; 避免列G上有空单元格的行

我正在运行一个VBA代码，将列的值复制到另一个工作表。

示例在这个图像上：

我的守则是：

inputWS4.Range("G2:G" & LastRowFLBlue).Copy outputWS.Range("B" & LastRowGeovera + (lastRowUniversal - 2) + LastRowCitizens) 

这段代码将G列复制到已经有其他工作表（Geovera，Universal＆Citizens）中的数据的“outputWS”工作表的最后一行。

代码的问题是，它也将复制空白单元格，我不想这样做。

另外我想从列D和P复制值，但我想要避免这些值，如果该行的列G上的单元格是空的。 这将避免在列p上的单词“TOTAL”被复制。

请帮忙！

PS我的这张表lastrow是：

 LastRowFLBlue = inputWS4.Cells(Rows.Count, "G").End(xlUp).Row 

Answer 1

如果发现空白，可以通过在列G中循环并隐藏整行来隐藏空白行。

 If Len(yourcell)=0 Then EntireRow.Hidden = True 

然后复制/粘贴您要使用的列中的可见单元格

 SpecialCells(xlCellTypeVisible).Copy