-1

エクセルテーブル

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

助けていただければ幸いです、ありがとうございます!

4

1 に答える 1

2

これがどれほど効率的かはわかりませんが、10 行ほどのデータを処理しているように見えます。

Sub test()
    Dim rng As Range, str As String
    Set rng = Range("b1")
    str = ""
    Do
        If rng.Font.Bold Then
            str = rng.Value
        End If
        rng.Offset(0, -1).Value = str
        Set rng = rng.Offset(1, 0)
    Loop Until IsEmpty(rng)
End Sub
于 2012-09-05T16:25:18.633 に答える