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

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

1 个答案: