VBA切入範圍跳過第二行

Question

For Each cell In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) 
cell.EntireRow.Cut Workbooks("Book2.xlsx").Worksheets("Sheet1").Cells(Rows.Count,1).End(xlUp).Offset(1, 0) 
Next cell 

快速的問題。這段代碼循環遍歷一個範圍，並剪切整行或粘貼到另一個工作簿/工作表上。

但是，它成功剪切/粘貼第一行。然後跳過第二行。並按照預期繼續，切割/粘貼每一行（事實上，如果我設置了一個斷點，您可以看到它碰到第一行，跳過第二行，然後運行正常&碰到所有其他人（H2，H4，H5等）。 ）如果我改變方法到「複製」，它運行良好（H2，H3，H4等）

注意：我可以使用'COPY'或其他一些解決方法，但真的只是想知道爲什麼' CUT'的行爲如下：

更新：對不起，我已經更新了CUT而不是COPY的代碼，而且我知道我需要目標工作表中的標題行，唯一的問題是爲什麼第二個行永遠不會從源表中切割（但是當我用COPY替換CUT時，它工作得很好）。

Answer 1

這真的很有意思。我認爲它可能是導致問題的for循環（即Next cell），但在測試中，結果也不是問題。我甚至把它放到了do while循環中，並得到了相同的結果。最後的手段（本應該是第一個度假村:)），我去了MDSN看看他們對Cut的看法。這裏是關鍵句子

切割範圍必須由相鄰的單元格組成。

當我想你的代碼符合此條件下，「鄰近細胞」的聲明讓我想...是跳繩，因爲你切割第一行中的範圍，在以前沒有行/單元格範圍？沿着這些線路，我試着這個代碼，它的工作原理，仍然使用.Cut。

Set myRange = Worksheets("Sheet1").Range("A1:A" & _ 
    Worksheets("Sheet1").Cells(Worksheets("Sheet1").Rows.Count, 1).End(xlUp).Row) 
i = 2 
Do While i <= myRange.Rows.Count 
    myRange.Cells(i, 1).EntireRow.Cut _ 
     Worksheets("Sheet2").Cells(Worksheets("Sheet2"). _ 
      Rows.Count, 1).End(xlUp).Offset(1, 0) 
    i = i + 1 
Loop 

我創建了一個包含一個比你原來多列的範圍，但在相同的點，也就是現在的範圍內的第二排發車。由於這個工作，這使我相信，在切割時，excel使用前一行來設置切割後當前行的指針。由於在剪切第一行時沒有上一行，因此它會跳過，直到它能夠這樣做，解釋爲什麼剪切第一行不會返回所需的結果。

Answer 2

我沒有在你的代碼中看到你正在切割的行，所以我會假設你在複製之後也刪除行。如果是這種情況，請注意，當您刪除一行時，它下面的行會向上移動。這意味着如果cell.Row = 12並且刪除了第12行，則即使第12行現在具有第13行的內容，下一次迭代也會查看第13行。

通常情況下，這個人通過循環向後迭代（For i = 1 to 10 Step - 1）。 However, you can't iterate backwards through a For Each statement。

試試這個：

For i = 2 to Cells(Rows.count, 1).End(xlUp).Row Step - 1 
    'Put your code here 
    'Tip: use Cells(i,"H") to reference each cell in column H 
Next i 

我的問題是，你爲什麼不讀/在這個範圍內的一切寫在一次？如果需要複製該範圍內的每一行，爲什麼不一次性複製/粘貼所有內容？

Dim Rng as Range 
Set Rng = Range("H2:N" & Cells(Rows.count, 1).End(xlUp).Row) 
'Note I changed the second column reference. Modify this to whichever is the last column in your range. 
Rng.copy Workbooks("Blank1.xlsx").Worksheets("Sheet1").Cells(Rows.count, 
1).End(xlUp).Offset(1, 0) 
Rng.Clear