Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/28.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

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.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 将特定行复制到另一张图纸中_Excel_Vba - Fatal编程技术网

Excel 将特定行复制到另一张图纸中

Excel 将特定行复制到另一张图纸中,excel,vba,Excel,Vba,我想用变量将表A中的特定行复制到表B中的特定行位置 它应该做什么: 从B页开始: 我在“表B”中通过一个自上而下的特定列(例如“V”)查找大于0的值。 如果有一个值大于0(例如=4),则取该值并将该值复制到“表a”中的所有行,并将该值放在“表B”中值=4的位置下的a列中。 从“工作表B”中的第一个新粘贴行开始重复此步骤,直到检查工作表B中的每一行。 复制的行可以在“V”中再次包含大于0的值,这就是为什么我要开始检查下面的一行 我尝试的是: 1。根据单元格中给定的输入值从“表1”复制范围: Dim

我想用变量将表A中的特定行复制到表B中的特定行位置

它应该做什么:
从B页开始: 我在“表B”中通过一个自上而下的特定列(例如“V”)查找大于0的值。
如果有一个值大于0(例如=4),则取该值并将该值复制到“表a”中的所有行,并将该值放在“表B”中值=4的位置下的a列中。
从“工作表B”中的第一个新粘贴行开始重复此步骤,直到检查工作表B中的每一行。
复制的行可以在“V”中再次包含大于0的值,这就是为什么我要开始检查下面的一行

我尝试的是:

1。根据单元格中给定的输入值从“表1”复制范围:

Dim i As Long, j As Long
j = 5
For i = 1 To 10232
    If Sheets("Sheet1").Cells(i, "A").Value = InputCell Then
    Sheets("Sheet1").Cells(i, 1).EntireRow.Copy Sheets("Sheet2").Cells(j, 1)
    j = j + 1
    End If
Next i

包含以下数据:

在Sheet1中,运行以下命令:

Sub KopyKat()
    Dim i As Long, j As Long
    j = 1
    For i = 1 To 21
        If Sheets("Sheet1").Cells(i, "V").Value > 0 Then
            Sheets("Sheet1").Cells(i, 1).EntireRow.Copy Sheets("Sheet2").Cells(j, 1)
            j = j + 1
        End If
    Next i
End Sub
将在第2页中生成:


欢迎来到SO。请把你试过的东西贴出来,尽量少做些努力。另外,这个问题已经被问了10000000次,所以如果你搜索复制行,你会看到数百万个例子,你可以适应你的需要。谢谢:)你说得对,我编辑了我的帖子!非常感谢。复制过程工作完美:)使用:如果图纸(“Sheet1”).Cells(i,“A”).Value=InputCell,则。。。但是现在的主要问题是看一下表2。我将在下面发表我的想法