B列に太文字のセルと普通の文字のセルが混在している状態で、太字のセルのみをA列に移動さたい

Question

ピポットテーブルを普通の表に直して、見やすくするマクロを作っています。
ピポットテーブルを普通の表に直すと、太文字のセルと普通の文字のセルが混在するようなので、太文字のみを左隣の列に移したいと思っています。

B列に太文字のセルと普通の文字のセルが混在している状態から、太字のセルのみをA列に移動させるということはできますでしょうか。

Answer 1

Sub 太字を他の列に移動するマクロ()

i = 3

Worksheets("テスト").Activate

For Each myRng In Range("B:B")

セル = "ｂ" & i

If Range(セル).Font.Bold = True Then
Cells(i, 1) = Cells(i, 2)　’B列太字のCells(i, 2)を A列Cells(i, 1) にコピー
End If

i = i + 1

If i = 1703 Then　’1703番地で終了
Exit For
End If

Next

End Sub

で対応しました。ありがとうございます。