excel - excel自定义函数

Question

我有这个包含超过 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

非常感谢您的帮助，谢谢！

Answer 1

我不确定这有多有效，但看起来像是处理 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