Question

我有一个简单的循环，我想用它来剪切和粘贴从一张纸到另一张纸的条件。

        Dim i, b As Long     

           For b=1 To 18 Step 2 
              For i = 5 To 21
                INTP = Sheets("Feuil1").Cells(i, 18+b)
                client = Sheets("Feuil1").Cells(i, 17+b)
                If IsNumeric(INTP) Then
                 Sheets("Feuil2").Columns(b).End(xlDown).Offset(1, 0) = client
                 End If
               Next i
             Next b

使用该代码的问题是，只有i = 21时的值才会粘贴到我的下一张表（Feuil2）中。其他价值观都没有发生......

我无法想象我错过了什么，谢谢

Answer 1

看起来你正在覆盖彼此之上的值，因此只显示最后一个（21）。尝试替换

Sheets("Feuil2").Columns(b).End(xlDown).Offset(1, 0) = client

与

Sheets("Feuil2").cells(frow,2)=client
frow=frow+1

并添加

dim frow as integer
frow=1 '' or the first empty row in your list

到你的子

之上

使用循环在条件下剪切和粘贴细胞

1 个答案: