Question

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

示例位于此图片上：

我的守则是：

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

此代码会将G列复制到我的“outputWS”表格的最后一行，该表格已包含其他表格（Geovera，Universal＆amp; Citizens）的数据。

代码的问题在于它还会复制空白单元格而我不想这样做。

我还要复制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