复制除最后两列以外的所有列

Question

我的代码中有一个代码片段，它工作得很好，但选择了每行中的所有列。我需要A-M栏，但就我的一生而言，无法进行看似简单的调整来正常工作。

以下是我的代码：

For i = 2 To ws1.Range("B65536").End(xlUp).Row
If ws1.Cells(i, 12) = Sheets("main").Range("B4") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Row + 1)

Answer 1

您可以尝试下面的代码，看看它是否有效：

For i = 2 To ws1.Range("B65536").End(xlUp).Row
If ws1.Cells(i, 12) = Sheets("main").Range("B4") Then ws1.Range("A" & i & ":M" & i).Copy ws2.Cells(ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Row + 1, 1)