excel - 根据是否包含特定字符移动单元格的全部内容-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