Excel VBA-搜索范圍-如果單元格包含文本，則復制單元格-粘貼偏移量2,1

Question

我正在嘗試簡化每周使用的Excel工作表。

我正在嘗試創建將執行以下操作的VBA宏：

1. 在列C中搜索包含文本的所有單元格（如果為空，則忽略它）
2. 如果在單元格中找到文本，請復制該單元格，粘貼內容偏移量（2,1）

任何人能給我的任何幫助，我將不勝感激。 我搜索了其他宏，並試圖對其進行修改以供使用，但無濟於事。

    **Example Before Macro**
  A       B       C       D       E
1                 Hi
2                 Test
3
4                 Done
5
6

**Example After Macro Has Been Run**
  A       B       C       D       E
1                 Hi
2                 Test
3                         Hi
4                 Done    Test
5
6                         Done

當前代碼：

Sub CopyC()  
  Dim SrchRng As Range, cel As Range 
  Set SrchRng = Range("C1:C10") 

  For Each cel In SrchRng 
    If InStr(1, cel.Value) > 0 Then 
      cel.Offset(2, 1).Value = "-" 
    End If 
  Next cel 
End Sub

Answer 1

您接近：

Sub CopyC()
Dim SrchRng As Range, cel As Range
Set SrchRng = Range("C1:C10")
For Each cel In SrchRng
    If cel.Value <> "" Then
        cel.Offset(2, 1).Value = cel.Value
    End If
Next cel
End Sub

我在D列中添加了1-6，以表明它忽略了空格