Excel VBA复制在常规值上加粗的单元格值，直到下一个粗体值，然后在常规值上复制该值等

Question

大家好，我在VB中使用Excel 2010

好的，所以我有一个问题，我必须将一列中的粗体单元格值复制到另一列中，并且要复制相同的值，直到它再次击中包含该粗体单元格的行，然后该值接管并复制到另一个加粗值等，并复制一个数的2位数字时（或字符作为我认为号被存储为文本）应被删除。

能做到吗？

我找到了以下代码，用于将加粗的值复制到另一列中：

Sub yTekhed()
    For Each cell In [A30:A2557]
        If cell.Font.Bold = True Then
            Debug.Print cell.Row
            cell.Copy Range("I" & Range("I65536").End(xlUp).Row + 1)
        End If
    Next cell
End Sub

我想出了删除字符，有一个公式= RIGHT（A1; LEN（A1）-2）

但是据我所知

我仍然无法照常复制粗体字。 所以说我有：

08479

码

082222

093334

084213

08572

码

093212

012321

482123

我希望粘贴看起来像

08479

08479

08479

08479

08572

08572

08572

08572

所以粘贴大胆的价值在每一个常规（非粗体）的值，直到下一个大胆的价值再复制一个，然后粘贴在常规值该值。 希望这能更好地解释它。

任何帮助将不胜感激

Answer 1

这应该可以解决问题：

Sub yTekhed()
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row

    For i = 1 To LastRow
        If Range("A" & i).Font.Bold = True Then
            Range("A" & i).Copy Range("B" & i)
            x = i
        Else
            Range("A" & x).Copy Range("B" & i)
        End If
    Next i

End Sub