Excel 如果给定某些条件，如何将文本添加到已包含文本的特定单元格中？

工作表图片

我想在将文本复制到目标工作表时，将文本添加到列中现有文本前面的E列：

Private Sub CommandButton1_Click()

Dim wsSource, wsTarget As Worksheet
Dim i, iLastSource, iRowTarget, count As Long
Dim cell As Range

Set wsSource = Worksheets("Stig Jan")
iLastSource = wsSource.Cells(Rows.count, 1).End(xlUp).Row

Set wsTarget = Worksheets("Laura Jan")

count = 0
With wsSource
iRowTarget = wsTarget.Cells(Rows.count, 1).End(xlUp).Row + 1
For i = 36 To iLastSource
  Set cell = .Cells(i, 4)
  If cell.Font.Bold = False Then
    If cell.Value = "Fælles" Or cell.Value = "Lagt Ud" Then
      wsTarget.Range("A" & iRowTarget & ":H" & iRowTarget).Value = .Range("A" & i & ":H" & i).Value
      wsTarget.Range("D" & iRowTarget).ClearContents
      **wsTarget.Range("E" & iRowTarget).Value = "LAURA. " & cell.Value**
      iRowTarget = iRowTarget + 1
      count = count + 1
    End If
  End If
    If cell.Value = "Fælles" Or cell.Value = "Lagt Ud" Then
    wsSource.Rows(i).Columns("D").Font.Bold = True
    End If
    Next

---

现在，它复制D列中的值。所以LAURA+D列

如果你想换成E列，则用1列进行偏移：

“LAURA.”&cell.offset（，1）.Value

看起来像是一种魅力。这是因为D处于活动状态，而您只是将其1偏移为E并将其后置值？我对这个很陌生：）谢谢！您的

cell

变量引用了您正在处理的每一行第4列（即D）中的一个单元格，因此读取右侧一列单元格偏移量的值可以得到e列的值。非常感谢！我在这里得到了很多帮助。现在完全有道理了！如果我将文本放在源代码表中的副本之前，我会怎么做？D: