时间戳

首页 > 解决方案 > 复制除最后两列之外的所有列

excel - 复制除最后两列之外的所有列

问题描述

我的代码中有一个片段效果很好，但会选择每行中的所有列。我需要 AM 列，但对于我的生活而言，我无法获得看似非常简单的调整才能正常工作。

下面是我的代码：

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)

标签： excelvba

解决方案

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

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)

推荐阅读