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

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

样本在此图像上：

我的密码是：

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

此代码将G列复制到我的“outputWS”工作表的最后一行，该工作表已经有来自其他工作表（Geovera、Universal和Citizens）的数据

<代码>的问题是它也将复制空白单元格，而我不想这样做。 我还想复制D列和p列中的值，但如果该行G列上的单元格为空，我想避免这些值。这将避免p列上的“总计”一词也被复制

请帮忙

PS此工作表的最后一行是：

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

---

您可以通过在列G中循环并在找到空白时隐藏整行来隐藏带有空白的行

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

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

SpecialCells(xlCellTypeVisible).Copy 

---

您可以通过在列G中循环并在找到空白时隐藏整行来隐藏带有空白的行

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

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

SpecialCells(xlCellTypeVisible).Copy 

---

请发布你尝试过的代码。我尝试过的代码就是发布的代码。我不知道如何避免空白单元格。我一直在研究，到目前为止你的问题不是很清楚，这并不难做到，你只需要使用

for循环

并在循环中使用一些

if

来过滤被复制的数据对不起，我不清楚。我试图复制列上的值，避免复制空白单元格。那么对于d&p，我想复制我从G列复制的精确行。请发布你尝试过的代码。我尝试过的代码就是发布的代码。我不知道如何避免空白单元格。我一直在研究，到目前为止你的问题不是很清楚，这并不难做到，你只需要使用

for循环

并在循环中使用一些

if

来过滤被复制的数据对不起，我不清楚。我试图复制列上的值，避免复制空白单元格。然后对于d&p，我想复制我从G列复制的精确行。我正在尝试：

如果Len（inputWS4.Range（“G2:G”和LastRowFLBlue））=0，那么EntireRow.Hidden=True inputWS4.Range（“G2:G”和LastRowFLBlue”）。特殊单元格（xlCellTypeVisible）。复制inputWS4.Range（“Q”和LastRowFLBlue）

和一个调试错误突出显示代码，直到“Then”正在放映。所以我甚至不能用空值隐藏行，这是因为我的示例不是完整的代码。您需要在单元格Dim r As Range中循环，c As Range Set r=Range（“a1:a299”）应用程序。屏幕更新=False对于r中的每个c如果Len（c.text）=0，则c.EntireRow.Hidden=True，否则c.EntireRow.Hidden=False如果下一次cim尝试：

如果Len（inputWS4.Range（“G2:G”&LastRowFLBlue））则结束=0然后EntireRow.Hidden=True inputWS4.Range（“G2:G”和LastRowFLBlue）。特殊单元格（xlCellTypeVisible）。复制inputWS4.Range（“Q”和LastRowFLBlue）

，调试错误会突出显示代码，直到显示“Then”。所以我甚至不能用空值隐藏行，这是因为我的示例不是完整的代码。您需要在单元格Dim r As Range、c As Range Set r=Range（“a1:a299”）应用程序中循环使用单元格Dim r As Range、c As Range Set r=Range（“a1:a299”）应用程序。屏幕更新=False如果Len（c.text）=0，则c.EntireRow.Hidden=True，否则c.EntireRow.Hidden=False如果下一个c