列Aをループし、列Aが太字のときにヘッダーを貼り付ける方法

Question

私はVBAを初めて使いこなしています。これを自分で解決しようとしていますが、正しくできないようです。私は販売データシートを持っています。私が書いてみようとしているマクロは、A列の範囲をループし、A5：A50と言うセルが見つかるとと表示されます。太字ののテキストは、ヘッダーを貼り付けます（「C6：I6」）同じ行であなたはC6の内容をコピーしようとしている場合はここ

は私のattempt-

Sub Headers() 
Dim Head As Range 

For Each Head In Range("A5:A50") 
    If Head.Font.Bold = True Then 
    Head.Offset(0, 2).Paste ("c6:I6") 
    End If 
    Next 
End Sub 

Answer 1

です：列Aに適用太字フォントを持っているすべての行へI6は、あなただけの1行を変更する必要がありますあなたのコードの：

Sub Headers() 
    Dim Head As Range 

    For Each Head In Range("A5:A50") 
     If Head.Font.Bold = True Then 
      'Copy C6:I6 to two columns to the right of current cell 
      Range("C6:I6").Copy Head.Offset(0, 2) 
     End If 
    Next 
End Sub 

（あなたも、列Aのセルの部分を太字で、部品ではないケースをピックアップする必要がある場合は、それが複雑になります。しかし、私はあなただけの単純なアプローチを望んでいる疑いがあります。 ）