![将 Sheet1 中的 2 个单元格连接到 Sheet2 中的 1 个单元格](https://linux22.com/image/1525851/%E5%B0%86%20Sheet1%20%E4%B8%AD%E7%9A%84%202%20%E4%B8%AA%E5%8D%95%E5%85%83%E6%A0%BC%E8%BF%9E%E6%8E%A5%E5%88%B0%20Sheet2%20%E4%B8%AD%E7%9A%84%201%20%E4%B8%AA%E5%8D%95%E5%85%83%E6%A0%BC.png)
编辑:找到了导致问题的代码。谢谢大家!
我一直在试图找出连接的代码
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
任何帮助都将不胜感激。提前致谢!
答案1
你有额外cell
的
Worksheets("Sheet2").Range("B2").Value = Worksheets("Sheet1").Range("B2").Value & Worksheets("Sheet1").Range("C2").Value
应该管用。