将 Sheet1 中的 2 个单元格连接到 Sheet2 中的 1 个单元格

Question

编辑：找到了导致问题的代码。谢谢大家！

我一直在试图找出连接的代码

Worksheets("Sheet1").Range ("B2:C2")

以“ - ”字符作为分隔符的此参考单元格：

Worksheets("Sheet2").Range ("B2")

我尝试了以下操作，但是它显示“下标超出范围”：

Worksheets("Sheet2").Range("B2").Cell.Value = 
  Worksheets("Sheet1").Range("B2").Cell.Value & 
    Worksheets("Sheet1").Range("C2").Cell.Value

我也尝试过这个，但它只将 Sheet1.C2 复制到 Sheet2.C2：

Set sourceRange = Worksheets("Sheet1").Range("B2:C2")
Set targetRange = Worksheets("Sheet2").Range("B2")

sourceRange.Copy
targetRange.PasteSpecial Paste:=xlPasteValues

任何帮助都将不胜感激。提前致谢！

Answer 1

你有额外cell的

Worksheets("Sheet2").Range("B2").Value = Worksheets("Sheet1").Range("B2").Value & Worksheets("Sheet1").Range("C2").Value

应该管用。