复制和粘贴值到主表中的同一行

我有下面的代码，复制和粘贴名为copySheet工作表中的列，并粘贴到名为pasteSheet表到第一个空行。

lRow = copySheet.Cells(copySheet.Rows.Count, 1).End(xlUp).Row With copySheet.Range("BX2:BX" & lRow) pasteSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) .Resize(.Rows.Count, .Columns.Count) = .Value End With 'Determine last row of Column B in copySheet lRow = copySheet.Cells(copySheet.Rows.Count, 1).End(xlUp).Row With copySheet.Range("CC2:CC" & lRow) pasteSheet.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0) .Resize(.Rows.Count, .Columns.Count) = .Value End With 

现在我想从“copySheet”复制BB列（从BB2开始）和AK（从AK2开始），并将它们一起粘贴到“pasteSheet”中的L列。 BB和AK值在同一个单元格中应该有一个空格。 有谁知道我能做到这一点？

Answer 1

这听起来像你想要2个单元格，连接在一起的空间，然后将该值设置为另一个工作表？ 您可以使用For循环轻松完成此操作：

 For myLoop = 2 to lRow ' recalc firstEmptyRow and increment to get first empty row firstEmptyRow = pasteSheet.Cells(pasteSheet.Rows.Count, "L").End(xlUp).Row + 1 myVal = copySheet.Range("BB" & myLoop).Value & " " & _ copySheet.Range("AK" & myLoop).Value pasteSheet.Range("L" & firstEmptyRow).value = myVal Next 

在这种情况下，我假定你想把这个值发布到pasteSheet的同一行，从copySheet中复制; 如果没有，你将不得不改变pasteSheet.Range行的位置