エクセルVBAについて質問です。以下のようなマクロを作ってください。

まだ、初心者ですが勉強に作ってみました。

こちらの環境では動きましたので、一応答えます。

×（バツ）とＸ（エックス）間違えると動かないです。

ダミーのURLです。http://q.hatena.ne.jp/1158088340

Sub 変換()

'

' Macro1 Macro

'

Dim s, d As Integer

シート数 = Worksheets.Count

For s = 1 To シート数

Sheets(s).Select

データ数 = Application.WorksheetFunction.CountA(Range("A:A"))

For d = 1 To データ数

Select Case Range("A" & d).Value

Case Is = "○"

Range("b" & d).Value = "丸"

Case Is = "△"

Range("b" & d).Value = "三角"

Case Is = "×"

Range("b" & d).Value = "ばつ"

End Select

Next d

Next s

End Sub

これぐらいでしたら ワークシート関数だけでもできますね。

マクロだと以下のとおりでいいでしょう。

Sub Macro1()

'

' Macro1 Macro

'

' Keyboard Shortcut: Ctrl+q

'

For a = 1 To 65536

If Range("A" & a) = "" Then Exit For

If Range("A" & a) = "○" Then Range("B" & a) = "丸"

If Range("A" & a) = "△" Then Range("B" & a) = "三角"

If Range("A" & a) = "×" Then Range("B" & a) = "ばつ"

Next a

End Sub

http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_070_10.html