使用VBA选择范围

我试图复制k列（第4行到末尾）和c列（第4行到末尾），复制它们，并将它们粘贴到BL列（从第4行开始）和BM列（从第4行开始）中，而不复制副本。（基本上是尝试复制第一个提供的代码，但从第4行开始，而不是从第1行开始

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

Sheets("Sheet1").Range("K:K", "C:C").Copy Sheets("Sheet1").Range("BL1")
Sheets("Sheet1").Range("BL:BL", "BM:BM").RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo

下面是尝试的代码，它似乎是从K到C，而不是K和C

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

---

做两次单独的复制粘贴，看看我是如何更改移除副本的范围的：

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

---

做两次单独的复制粘贴，看看我是如何更改移除副本的范围的：

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

---

这仍然需要C和K之间的范围。而不是C或K。谢谢你修复你的打字错误！也谢谢你关于分解复制和粘贴的提示，我没有完全看到这是我出错的地方。谢谢！我开始测试这个，似乎我只得到了第一个结果。你有什么提示吗？逐步完成代码and查看lastrow的值与您期望的值是否相等。确保在移除复制之前粘贴看起来像它应该的样子。我正在尝试执行整个列，而不是特定列/行中的一个单元格（只是不能包括行1、2、3）。区分k:k会给我整行，而k4:k会给我一个单元格。我有点不知道怎么做。谢谢！这仍然是C和k之间的范围。而不是C或k。谢谢你纠正你的打字错误！也谢谢你关于拆分副本和粘贴的提示，我没有确切地看到我出了问题。不是吗hanks！我开始测试这个，似乎我只得到了第一个结果。你有什么建议吗？仔细检查代码，看看lastrow的值与你期望的值相等。确保在移除复制之前粘贴看起来像它应该的那样。我正在尝试整列而不是特定列/行中的一个单元格（只是不能包括第1、2、3行）。区分k:k会给我整行，而k4:k会给我一个单元格。我有点不知道该怎么做。谢谢！