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