Sub miko_test()
　Dim i As Long, j As Integer, k As Integer
　Dim 左 As Double, 上 As Double, 右 As Double, 下 As Double
　　'1行目から最後の行まで繰り返し
　For i = 1 To Cells(Application.Rows.Count, 1).End(xlUp).Row - 1
　　'i行目の1列目から最後の列まで繰り返し
　　For j = 1 To Cells(i, Application.Columns.Count).End(xlToLeft).Column
　　　If Cells(i, j) = "" Then Exit For
　　　'i+2行目の1列目から最後の列まで繰り返し
　　　For k = 1 To Cells(i + 2, Application.Columns.Count).End(xlToLeft).Column
　　　　If Cells(i + 2, k) <> "" And Cells(i, j) = Cells(i + 2, k) Then
　　　　　左 = Cells(i, j).Left + (Cells(i, j).Width / 2)
　　　　　上 = Cells(i, j).Top + Cells(i, j).Height
　　　　　右 = Cells(i + 2, k).Left + (Cells(i + 2, k).Width / 2)
　　　　　下 = Cells(i + 2, k).Top
　　　　　ActiveSheet.Shapes.AddLine(左, 上, 右, 下).Select
　　　　End If
　　　Next
　　Next
　Next
End Sub
　　このコードの使い方は、マクロの使い方(１)標準モジュールにあります。

Sub 丸囲み文字3()
　Dim M As String, F As Integer, C As Integer, CC As String
　Dim L As Double, T As Double, W As Double, B As Double
　Dim S As Shape, MS(2) As String
　Dim R As Range, SR As Range, i As Integer
　On Error Resume Next
　Set R = Selection
　M = Application.InputBox(prompt:="まるで囲む文字を入力してください", Type:=2)
　F = Application.InputBox(prompt:="文字サイズを入力してください", _
　　　　　　　　　　　　　　　　　　　　　　Default:=11, Type:=1)
　CC = "1）黒" & Chr(10) & "2）白" & Chr(10) & _
　　　　　　　　　　　　　　　"3) 赤" & Chr(10) & "4）黄緑" & Chr(10) & "5）青"
　C = InputBox(prompt:="文字色をフォント色のインデックス番号（1〜56）で入力してください" _
　　　　　　　　　　　　　　　& Chr(10) & Chr(10) & CC, Title:="文字色選択", Default:=1)
　If (VarType(C) = vbBoolean) Then Exit Sub
　L = Selection.Left 　　　　'左
　T = Selection.Top 　　　　'上
　W = Selection.Height 　　'幅
　B = Selection.Height　　 '高さ
　ActiveSheet.Shapes.AddShape(msoShapeOval, L, T, W, B).Select
　With Selection
　　MS(1) = .Name
　　.Characters.Text = M
　　.ShapeRange(1).TextFrame.AutoSize = msoTrue
　　.HorizontalAlignment = xlCenter
　　.VerticalAlignment = xlCenter
　　With .ShapeRange
　　　.Fill.Visible = msoFalse
　　　.Line.Visible = msoFalse
　　End With
　　With .Font
　　　.Name = "ＭＳ Ｐゴシック"
　　　.FontStyle = "標準"
　　　.Size = F
　　　.ColorIndex = C
　　End With
　End With
　ActiveSheet.Shapes.AddShape(msoShapeOval, L, T, W, B).Select
　With Selection
　　.Characters.Text = " " '文字色変更マクロの際の判定のためスペースを入力
　　.ShapeRange .ColorIndex = C　
　　.ShapeRange.Fill.Visible = msoFalse
　　.ShapeRange.Line.ForeColor.SchemeColor = C + 7
　　MS(2) = .Name
　End With
　ActiveSheet.Shapes.Range(Array(MS(1), MS(2))).Select
　With Selection.ShapeRange
　　.Align msoAlignMiddles, False
　　.Align msoAlignCenters, False
　　.Group.Select
　End With
　If Selection.Top + Selection.Height > T + B Then _
　　　　　　　　　　　Selection.ShapeRange.IncrementTop _
　　　　　　　　　　　-(Selection.Top + Selection.Height - T - B) / 2
End Sub
　　このコードの使い方は、マクロの使い方(１)標準モジュールにあります。

次の【丸囲み文字_○色変更】マクロは、上記で作成した丸囲み文字の文字色を変更するコードです。
こちらの方は、先にフォント色を変更してから実行すると、 ○の部分をフォント色と同じ色にします。

Sub 丸囲み文字_○色変更() '先に文字色を変更してから実行してください
　Dim obj As Object, i As Integer, j As Integer, WS As Worksheet
　Dim N(2) As String, L(2) As Single, C(2) As Integer
　On Error Resume Next
　'フォント色のインデックスＮｏを取得
　C(1) = Selection.Font.ColorIndex
　Selection.ShapeRange.Ungroup.Select 　　　　'グループ解除
　'図形の名前、テキスト内容、文字色Noを変数に格納
　i = 0
　For Each obj In Selection
　　i = i + 1
　　N(i) = obj.Name　　　　　　　　　　　 'それぞれの図形の名前を取得
　Next
　'テキストが" "の場合、染色をフォント色と同じにする
　ActiveSheet.Shapes(N(1)).Select
　If Selection.Text = " " Then Selection.ShapeRange.Line.ForeColor.SchemeColor = C(1) + 7
　ActiveSheet.Shapes(N(2)).Select
　If Selection.Text = " " Then Selection.ShapeRange.Line.ForeColor.SchemeColor = C(1) + 7
　ActiveSheet.Shapes.Range(Array(N(1), N(2))).Select
　Selection.ShapeRange.Group.Select　　　　　　　 'グループ化
End Sub
　　このコードの使い方は、マクロの使い方(１)標準モジュールにあります。