Question

我正在尝试复制列k（第4行到最后）＆amp;列c（第4行到结尾），复制它们，然后将它们粘贴到列BL（从第4行开始）＆amp;列BM（从第4行开始）没有重复。（基本上试图复制第一个提供的代码，但是从第4行而不是第1行开始。

以下是我正在使用的代码，它将执行完整的行：

Dim Lastrow As Integer
Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row


Sheets("Sheet1").Range("K4:K" & Lastrow, "C4:C" & Lastrow).Copy Sheets("Sheet1").Range("BL3")
Sheets("Sheet1").Range("BL4:BL" & Lastrow, "BM4:BM" & Lastrow).RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo

这是尝试的代码，似乎从K到C，而不是K和C.

{{1}}

Answer 1

执行两个单独的复制粘贴，并查看我如何更改RemoveDuplicates的范围：

Dim Lastrow As Integer
Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row


Sheets("Sheet1").Range("K4:K" & Lastrow).Copy Sheets("Sheet1").Range("BL3")
Sheets("Sheet1").Range("C4:C" & Lastrow).Copy Sheets("Sheet1").Range("BM3")
Sheets("Sheet1").Range("BL4:BM" & Lastrow).RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo

使用VBA选择范围

1 个答案: