如何将值粘贴到VBA中的某个文本位置？

我有两张工作簿。 第一张表包含要复制的数据，第二张表包含我想要插入数据的string。 问题是，我不知道如何确切地定义第二个表单文本的开始/结束位置，我想粘贴？

例如：在第一张纸上我有范围A1：A4

<Tracciato xmlns="http://"> <Riquest> <Test> <Code></Code> 

然后我从第二个B2单元格取值为293，并插入它之间，所以我得到：

 <Tracciato xmlns="http://"> <Riquest> <Test> <Code>293</Code> 

代码可能是这样的：

 Sub Data() Sheets("First_sheet").Select Sheets.("First_sheet").Range("B2").Copy Destination:=Sheets("Second_sheet") End Sub 

Answer 1

这里是一个简单的例子：

 Sub foo() Dim copyRange as Range Dim destRange as Range Dim copyString as String 'Define the cell from which you want to "copy" the text Set copyRange = Sheets("First_Sheet").Range("B2") 'Define the destination: Set destRange = Sheets("Second_Sheet").Range("B2") 'Assign the value from a cell to this string variable copyString = copyRange.Value 'Now insert the text: destRange.Value = Left(destRange, 6) & copyString & Right(destRange, 7) End Sub 

当然，实际上你很可能需要在某种循环结构中实现这个function。 YOu可能需要使用一些逻辑来确定目的地在哪里，如果这不是1：1的关系（即Sheet1上的B2 – Sheet2上的B2等）。 您可能还需要使用一些逻辑来更好地定义插入的开始/结束位置。 现在，示例代码仅用于向像<Code></Code>这样的节点插入值。