1

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

アイデアはありますか？

4

1 に答える 1

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
于 2013-09-25T03:01:13.270 に答える