6K を超える行を含むこのテーブルがあります。各「A」列のセルで実行し、チェックする関数が必要です->「b」のセルが太字であるかどうかをコピーし、そうでない場合はその上のセルをコピーします。
私はインターネットでこの機能を見つけましたが、私はVBを使用していません.ExcelでVB関数を使用する方法をすでに知っている人は、最初から学ぶよりも簡単です.
ご覧のとおり、このコードは G 列のセルを数字に置き換えます。
Sub BoldCells()
Dim TheRange As Range
Dim TheCell As Range
Set TheRange = Range("G1", Range("G65536").End(xlUp))
For Each TheCell In TheRange
If TheCell.Font.Bold = True Then
TheCell = 7
Else: TheCell = 0
End If
Next TheCell
End Sub
助けていただければ幸いです、ありがとうございます!