Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 将数据从工作表1传输到工作表2,但我想使用IF语句(如果G列为空,则不复制)_Excel_Vba - Fatal编程技术网

Excel 将数据从工作表1传输到工作表2,但我想使用IF语句(如果G列为空,则不复制)

Excel 将数据从工作表1传输到工作表2,但我想使用IF语句(如果G列为空,则不复制),excel,vba,Excel,Vba,我需要使用IF语句,其列的范围从3g开始到50g。如果G列中的单元格为空,则不复制数据 注:G列中的数据并非总是小于单元格50g的几倍,但最大值为50 您希望复制和粘贴数据还是覆盖现有数据?假设您有两张纸:Sheet1和Sheet2。哪个工作表有G列,从哪个工作表复制数据?如果G列为空,是否希望避免仅复制特定行或整个工作表的数据?我希望将数据从工作表(1)复制并粘贴到工作表(2)。是的,如果G列中没有数据,我希望避免从第(1)页复制数据。您可以考虑第(1)页,只需输入数据,行数限制为50行,第(

我需要使用IF语句,其列的范围从3g开始到50g。如果G列中的单元格为空,则不复制数据

注:G列中的数据并非总是小于单元格50g的几倍,但最大值为50


您希望复制和粘贴数据还是覆盖现有数据?假设您有两张纸:Sheet1和Sheet2。哪个工作表有G列,从哪个工作表复制数据?如果G列为空,是否希望避免仅复制特定行或整个工作表的数据?我希望将数据从工作表(1)复制并粘贴到工作表(2)。是的,如果G列中没有数据,我希望避免从第(1)页复制数据。您可以考虑第(1)页,只需输入数据,行数限制为50行,第(2)页仅粘贴数据,没有限制行。因此,条件适用于表(1)中的代码
 Sub NN()
Dim Lastrow As Integer
Lastrow = [b50].End(xlUp).Row
   Range("b3:J" & Lastrow).Copy Sheets("Sheet2").Range("b" & Sheets("Sheet2").[b1000].End(xlUp).Row + 1)
Range("b3:c" & Lastrow).ClearContents
Range("e3:e" & Lastrow).ClearContents
Range("g3:j" & Lastrow).ClearContents

MsgBox ("Date Posted")

Sheets("TRANS").Activate

End Sub