Excel VBA – search范围 – 如果单元格包含文本，然后复制单元格 – 粘贴偏移2,1

我试图简化每周工作的Excel工作表。

我正在尝试创build一个VBAmacros将执行以下操作：

1. search列C包含文本，如果空白忽略它的任何单元格
2. 如果在单元格中find文本，请复制该单元格，粘贴内容偏移量（2,1）

任何人都可以帮助我，我将不胜感激。 我已经search了其他macros，并试图修改它们为我使用无济于事。

**Example Before Macro** ABCDE 1 Hi 2 Test 3 4 Done 5 6 **Example After Macro Has Been Run** ABCDE 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

你是closures的：

 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，表明它忽略了空白