将值复制并粘贴到母版表的同一行

Question

我有以下代码，它从名为 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

在这种情况下，我假设您希望将值发布到您在 copySheet 中复制的 pasteSheet 中的同一行；如果没有，您将不得不更改pasteSheet.Range 行中的位置