【正答100P】Excel2000、又はOpenOffice.org Calc(最新)で自動処理:

まず実現方法として、A列のセルを上書きするということでワークシート関数ではできないのでマクロを使うことになります。

Excelの場合マクロは次のように標準モジュールを追加してそこに書き込みます。

http://www.officepro.jp/excelvba/ini/index1.html

http://www.officepro.jp/excelvba/ini/index2.html

http://www.officepro.jp/excelvba/ini/index3.html

書きこむコードはこちらです。そのままコピペしてください。

Sub Macro()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To lastRow
        If Cells(i, "A").Value = "-" And IsNumeric(Cells(i, "B").Value) Then
            Cells(i, "A").Value = Cells(i, "B").Value / 2
        End If
    Next i
End Sub

コードの説明

A列の最終列(lastRow)を求めて、ループさせて行ごとに処理する簡単なコードです。

条件は処理しやすいように次のように変換しました。

「A列が-でB列が数値ならば、A列にB列の1/2を書きこむ」

これでA列が空白だったり、B列が文字列だったりというイレギュラーも回避できます。

Excelです。（Excelのどのバージョンでも可能です。）

セルの内容を書き換えることなので、ここではＶＢＡを使用して直接にセル内容を書き換えする方法を考えましょう。

まず処理対象はＡ列ですが、２行目から処理を始め、セルが空（ヌル）となったところでデータ終わりで処理終了とします。

（多分１行目は見出し文字列があると思います。開始行が異なる場合は初期値設定でセットする値を変えればいいです。）

下のマクロをＶＢＡモジュールに貼り付けで組み込み、対象データのワークシートを表示している状態でこのマクロを起動します。

	
	
Sub colA_Change()
	
    '
	
    Dim wkRow As Integer     'データ処理行
	
    
	
    wkRow = 2     'データ処理行初期値設定
	
    
	
    'Ａ列のデータが無くなる行まで繰り返す
	
    While Cells(wkRow, 1) <> ""
	
        '
	
        If Cells(wkRow, 1) = "-" Then
	
            'Ａ列がハイフンの場合
	
            
	
            If Cells(wkRow, 2) = "-" Then
	
                'Ｂ列もハイフンなので処理しない
	
                
	
            Else
	
                'Ｂ列がハイフンでないのでこれを２で割った値をＡ列にセットする
	
                Cells(wkRow, 1) = Cells(wkRow, 2) / 2
	
                
	
            End If
	
            
	
        else
	
            'Ａ列がハイフンでない（数字が入っている）場合は何もしない
	
        End If
	
        
	
        '次の行に進める
	
        wkRow = wkRow + 1
	
    Wend
	
    
	
End Sub