根据单元格是否包含特定字符 Excel 2007 移动单元格的全部内容

Question

我想在 Excel 2007 中创建一个宏，以便在 A 列中搜索冒号 （:)如果找到，则将整个单元格值移动到同一行 B 列。因此，我的数据如下所示：

Column A     Column B
1:256   
13.049 
1:200    
1:100   
1:200   
1:512   
> 1:512 
13.909
1:100   
1:512   
1:512   
16.610

并且看起来像这篇文章运行宏：

Column A    Column B
            1:256   
13.049 
            1:200     
            1:100   
            1:200      
            1:512   
            > 1:512 
13.909
            1:100   
            1:512        
            1:512   
16.610

有人的想法吗？

Answer 1

在这里展示你的作品总是好的..

以后试着展示你的作品，但这次我帮你

经测试 - 工作正常

Sub tested()
Dim rng As Range
Dim lrow As Integer
With ActiveSheet
lrow = .Range("A" & Rows.Count).End(xlUp).Row
For Each rng In .Range("A2:A" & lrow)
If InStr(rng.Value, ":") > 0 Then
rng.Offset(0, 1).Value = rng.Value
rng.Value = ""
End If
Next rng
End With
End Sub