Vba 使用循环在特定条件下剪切和粘贴单元格

我有一个简单的循环，我想用它在一张纸到另一张纸的条件下剪切和粘贴单元格

        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）中。其他值不会发生任何变化

---

我想不出我遗漏了什么，谢谢。看起来您正在覆盖彼此上面的值，因此只显示最后一个（21）。 试着替换

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

与

加

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

到你的潜艇顶端

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