Excel VBA-搜索范围-如果单元格包含文本，则复制单元格-粘贴偏移量2,1
罗尼·G。
我正在尝试简化每周使用的Excel工作表。
我正在尝试创建将执行以下操作的VBA宏：
- 在列C中搜索包含文本的所有单元格（如果为空，则忽略它）
- 如果在单元格中找到文本，请复制该单元格，粘贴内容偏移量（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
斯科特·克莱纳（Scott Craner）
您接近：
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，以表明它忽略了空格
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
包含文本的特定文本复制单元格的excel搜索范围
- 2
包含文本的特定文本复制单元格的excel搜索范围
- 3
Excel VBA复制单元格值，如果> 0到左侧的单元格
- 4
Excel VBA范围合并单元格和偏移量
- 5
如果列包含数据，则复制单元格 A，Excel VBA
- 6
Excel VBA宏复制单元格并粘贴到另一个
- 7
Excel VBA选择包含文本字符串的单元格，然后将这些单元格复制并粘贴到新工作簿中
- 8
Excel VBA-如果单元格值满足条件，则在工作表之间复制单元格
- 9
Excel VBA：将单元格文本剪切并粘贴到上方，如果单元格值向左= 0
- 10
Excel VBA如果单元格包含文本则删除行
- 11
用于选择活动单元格 Excel VBA 的单独自动求和偏移量或单个范围
- 12
通过VBA在Excel中复制单元格公式
- 13
Excel公式或VBA复制单元格删除空格？
- 14
Excel VBA：复制单元格内容
- 15
VBA Excel-复制单元格值并将值粘贴在另一个单元格的字符之间
- 16
VBA Excel中的单元格范围
- 17
如果单元格包含VBA / Excel中的特定值，如何从范围中删除列
- 18
如何使用excel vba从特定单元格复制并将其粘贴到另一个范围
- 19
Excel-VBA循环-从单元格复制公式，粘贴到单元格中，然后复制特殊粘贴
- 20
Excel VBA 循环遍历 2 列，只复制符合条件的一个范围的单元格
- 21
Excel宏搜索列D单元格1复制粘贴列B单元格7
- 22
为范围VBA Excel中的每个单元格设置偏移值
- 23
使用VBA将单元格范围从MS Excel粘贴到MS PowerPoint
- 24
Excel 2016复制单元格的范围-范围由另一张纸上的单元格结果确定
- 25
在VBA Excel中使用“如果单元格包含”
- 26
Excel VBA根据单元格值选择范围
- 27
VBA Excel在单元格中分隔日期范围
- 28
Excel VBA：基于单元格值的颜色范围
- 29
Excel VBA使用单元格和xlDown选择范围
我来说两句