Você extraiu cell
s
Worksheets("Sheet2").Range("B2").Value =
Worksheets("Sheet1").Range("B2").Value &
Worksheets("Sheet1").Range("C2").Value
Deve funcionar.
EDIT: Encontrou o código perdido que o jogou fora. Obrigado a todos!
Eu tenho tentado descobrir o código para concatenar
Worksheets("Sheet1").Range ("B2:C2")
para esta célula de referência com o caractere "-" como separador:
Worksheets("Sheet2").Range ("B2")
Eu tentei o seguinte, mas ele diz "subscrito fora do intervalo":
Worksheets("Sheet2").Range("B2").Cell.Value =
Worksheets("Sheet1").Range("B2").Cell.Value &
Worksheets("Sheet1").Range("C2").Cell.Value
Eu também tentei isso, mas ele só copia Sheet1.C2 para Sheet2.C2:
Set sourceRange = Worksheets("Sheet1").Range("B2:C2")
Set targetRange = Worksheets("Sheet2").Range("B2")
sourceRange.Copy
targetRange.PasteSpecial Paste:=xlPasteValues
Qualquer ajuda sobre isso seria apreciada. Obrigado antecipadamente!